var n,k,i,max:integer;
a:array[1..10000] of byte;
begin
readln(n);
for i:=1 to n do
read(a[i]);
k:=1;
max:=0;
for i:=1 to n-2 do
begin
if (a[i]-a[i+1])*(a[i+1]-a[i+2])<0 then k:=k+1
else
begin
if k>max then max:=k;
k:=1;
end;

end;
if k>max then max:=k;
if n=1 then max:=0;
if (n=2)and(a[1]<>a[2]) then max:=1;
if (n=2)and(a[1]=a[2]) then max:=0;
writeln(max+1);
end.