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.