Contoh Program While Do Pascal

program whiledodelphiunisnu;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
 I : integer;
 begin
  { TODO -oUser -cConsole Main : Insert code here }

  readln;
  writeln (' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
  writeln (' @@@   Program Pernyataan while do   @@@ ');
  writeln (' @@@    Muhammad Husnu Dzihan TIF    @@@ ');
  writeln (' @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ ');
  readln;


  I := 0;
  while I < 11 Do
    begin
   writeln( ' UNISNU ');
   I := I + 1 ;
   writeln (' Universitas Islam Nahdlatul Ulama ');
   writeln (' Jepara ');
 
    end;
    readln;
   end.

Hasilnya :

http://husnuboys.blogspot.com/