program hinded;
var
 hinne, summa, min, max, hinnete_arv: integer;
 keskmine: real;

begin
 summa:=0; hinnete_arv:=0;
 max:=0; min:=5;
 repeat
  write('Sisesta hinne: '); readln(hinne);
  writeln;
  if ((hinne>=0) and (hinne<=5)) then
  begin
   if (hinne>max) then max:=hinne;
   if (hinne<min) then min:=hinne;
   summa:=summa+hinne;

   hinnete_arv:=hinnete_arv+1;
   keskmine:=summa/hinnete_arv;

   writeln('Suurim hinne on ', max);
   writeln('V„him  hinne on ', min);
   writeln('Keskmine hinne on ', keskmine:5:2);
  end;
 until (hinne<0);

 writeln;
 writeln('************************************');
 writeln('Suurim hinne on ', max);
 writeln('V„him  hinne on ', min);
 writeln('Keskmine hinne on ', keskmine:5:2);
end.