programm z1;
var k,max:integer;
a:array [1..30] of real;
begin
k:=0; {счетчик}
max:=0;
for i:=1 to 29 do
readln (a[i]);
if a[i+1]>a[i]
then
k:=k+1
else
if max<k
max:=k;k:=0;
end;
writeln (max);
end.
