{
  Encontra o valor maximo e o valor minimo entre N valores fornecidos pelo usuario.
}
program max_min;
var
   n, i, max, min, v : integer;
begin
   write ('N: ');
   read  (n);

   if (n > 0) then
   begin
      read(max);           { O primeiro valor lido e' o valor  maximo   }
      min := max;          { e o valor minimo conhecido ate' o momento. }
      i := 2;
      while (i <= n) do
      begin
	 read(v);
	 if v > max then   { novo maximo }
	    max := v;
	 if v < min then   { novo minimo }
	    min := v;
	 i := i+1;
      end;
      
      writeln;
      writeln ('Maximo: ',max);
      writeln ('Minimo: ',min);      
   end;
end.