contoh program for_do(turbo pascal)

program for_do;
uses wincrt;
var
jum,i,n:integer;                                      
rata:real;
begin
jum:=0;
rata:=0;
write('input banyak perulangan ======> ');readln(n);
for i:=1 to n do
writeln ('urutan perulangan==========>'    ,i);
for i:=1 to n do
jum:=jum+i;
rata:=jum/n;
writeln('hasil penjumlahan bil ======> ',jum);
writeln('hasil rata-rata       ======> ',rata:0:2);
readln;              
donewincrt;
end.