program ct2;
uses crt;
var
  a: array [1..100] of Integer;
  i, n, max, min: Integer;
begin
  Write('nhap so nguyen: ');
  Read(n);
  for i := 1 to n do
    begin
      Write('so thu ', i, ': ');
      Read(a[i]);
      max := a[1];
      min := a[1];
    end;
  for i := 2 to n do
    begin
      if (a[i] > max) then
        max := a[i] ;
      if (a[i] < min) then
        min := a[i] ;
    end;
  WriteLn('max= ', max);
  WriteLn('min= ', min);
  readln;
end.