program hinded; 
var 
 hinne, summa, hinnete_arv: integer;
 min, max: integer; 
 keskmine: real; 
 
begin 
 summa:=0; hinnete_arv:=0;
 
 write('Sisesta hinne:');
 readln(hinne);
 min:=hinne; max:=hinne;
 
 while(hinne>=0) do 
 begin 
   if (hinne>max) then max:=hinne; 
   if (hinne<min) then min:=hinne; 
   summa:=summa+hinne; 
   hinnete_arv:=hinnete_arv+1;
 
   write('Sisesta hinne: ');
   readln(hinne); 
   writeln; 
 end; 
 writeln;
 keskmine:=summa/hinnete_arv; 
 writeln('*************************'); 
 writeln('Suurim hinne on ', max); 
 writeln('V„him  hinne on ', min); 
 writeln('Keskmine hinne on ',
			keskmine:5:2); 
end.