Program nagy_kicsi_O_ig;
var n,k,x:real;
    db:byte;
begin
   Writeln('Kerem a szamokat!');
   readln(x);
   n:=x;
   k:=x;
   while x<>0 do
   begin
     inc(db);
     if x>n then n:=x;
     if x<k then k:=x;
     readln(x)
   end;
   Writeln('A legnagyobb: ',n:6:2,' A legkisebb: ',k:6:2,' Osszesen ',db,' szam volt');
   readln
end.