program summa;
var
 sum, n, korduste_arv: integer;
 max:integer;
 kesk:real;
begin
 sum:=0;
 korduste_arv:=0;
 repeat
  writeln('Summa=',sum);
  writeln('Anna raha');
  write('n='); readln(n);
  sum:=sum+n;
  if (n>max) then 
    max:=n;
  writeln('max= ', max);
  korduste_arv:=korduste_arv+1;
  kesk:=sum/korduste_arv;
 until(sum>=100);
 writeln('Keskmine=',kesk:5:2);
end.