procedure maxmin(n: integer; var max, min: integer);
var
   i, v :  integer;
begin
   if (n > 0) then
   begin
      readln(v);
      max := v;      
      min := v;
      i := 2;
      while (i <= N) do
      begin
	 readln(v);
	 if (v > max) then max := v;
	 if (v < min) then min := v;
	 i := i+1;
      end;
   end;
end;