program Military;



var
    a:array[1..10000]of byte;
    max,count,p,k:integer;

procedure input;
var i:integer;
begin
readln(count);
for i:=1 to count do
read(a[i]);
end;

procedure search;
var r:boolean;
    point,i:integer;
begin
max:=0;
r:=false;
point:=0;
for i:=1 to count do
begin
if r=false then begin if (a[i]<a[i+1]) then point:=point+1 else if max<point then begin max:=point; point:=0; r:=false end; r:=true; end
           else begin if (a[i]>a[i+1]) then point:=point+1 else if max<point then begin max:=point; point:=0; r:=false; end; r:=false; end;

end;
max:=max+1;
end;

procedure output;
begin
writeln(max);

end;

begin
input;
search;
output;
end.