Contoh program Menggunakan while… do..

program ulang;
uses crt;
var
jml,I:integer;
begin
clrscr;
I:=0;
while I<10 do
begin
I:=I+1;
writeln(’data ke:’,i,’unisbank’);
writeln(’teknik industri’);
end;
readln;
end.