program keskmine;
var
 sum, n: integer;
 c: char;
 loendur: integer;
begin

 sum:=0;
 loendur:=0;
 repeat 
  loendur:=loendur+1;
  write('n='); readln(n);
  sum:=sum+n;
  writeln('Summa=', sum);
  writeln('Keskmine=', sum/loendur:1:1);
 writeln('Kas soovid veel? (j/e)');
 readln(c);
 until (c='e');
 writeln('Kogusumma on ', sum);
 writeln('Keskmine on ', sum/loendur:1:2);
end.