contoh program while_do(turbo pascal)

program while_do;
uses wincrt;
var
i,n:integer;                                       

begin
write('input banyak perulangan:  ');readln(n);
i:=1;
while i<=n do
begin
writeln(i,  'batam');
i:=i+1;
end;
readln;               
donewincrt;
end.