program while7;
uses wincrt;
var
 num,max,min:integer;
begin
 writeln('הכנס ציון');
 readln(num);
 max:=num;
 min:=num;
 while num>=0 do
  begin
    if num>max then
      max:=num;
    if num<min then
      min:=num;
    writeln(num);
    if num>=95 then
      writeln('עבר בהצטיינות')
    else if num<55 then
      writeln('נכשל');
    writeln('הכנס עוד ציון');
    readln(num);
  end;
  writeln(max, ' הציון הגבוה ביותר');
  writeln(min, ' הציון הנמוך ביותר');
end.