program pengulangan(for_do);
uses
wincrt;
var
jum,n,i:integer;
rata:real;
begin
writeln('input banyak perulangan: ');readln(n);
for i:=1 to n do
writeln(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.