program gova;
var
   height,min,max,i,n:integer;
begin
     writeln('כמה גבהים יש לקלוט?');
     readln(n);
     writeln('הכנס גובה ');
     readln(height);
     max:=height;
     min:=height;
     for i:=1 to n-1 do
     begin
         writeln('הכנס גובה');
         readln(height);
         if height>max then
          max:=height;
         if height<min then
          min:=height;
     end;
     writeln('המקסימלי הוא: ',max);
     writeln('המינימלי הוא: ',min);
   
end.