PROGRAM souvislarostouciposloupnost;
var pocet,i,cislo,predchoziCislo, aktualniDelka, maxDelka: integer;
begin
  predchoziCislo:=0;
  maxDelka:=1;
  aktualniDelka:=1;
  readln(pocet);
if (pocet<=10000) then
begin
  for i := 1 to pocet do
  begin
    read(cislo);
    if (i > 1) then
    begin
       if (predchoziCislo<cislo) then
       begin
          aktualniDelka:=aktualniDelka+1;
          if (aktualniDelka>maxDelka) then maxDelka:=aktualniDelka;
       end
       else aktualniDelka:=1;
    end;
    predchoziCislo:=cislo;
  end;
  writeln(maxDelka);
end;
end.