program keskmine;
var
 sum, n: integer;
 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);
 until (sum>100);
 writeln('Kogusumma on ', sum);
 writeln('Keskmine on ', sum/loendur:1:2);
end.