contoh program while_do(turbo pascal)

program while_do;
uses wincrt;
var
i,n,jum:integer;                                      
rata:real;

begin
write('input banyak perulangan:  ');readln(n);
i:=1;
while i<=n do
begin
writeln(i,  'batam');
i:=i+1;
end;
i:=1;
jum:=0;
rata:=0;
while i<=n do
begin
jum:=jum+i;
rata:=jum/n;
i:=i+1;
end;
writeln('hasil penjumlahan deret perulangan    :  ',jum);
writeln('hasil rata-rata deret perulangan     :  ',rata:0:2);
readln;              
donewincrt;
end.