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.