var a,f:array[0..100]of integer;

min,x,y,n,i,j,k:integer;

begin

readln(n);

for i:=1 to n do read(a[i]);

min:=maxint;

for k:=2 to n-1 do

begin

for i:=1 to k do f[i]:=1;

for i:=1 to k do

for j:=1 to i do

if (a[i]f[j])and(a[i]x then x:=f[i];

for i:=k+1 to n do f[i]:=1;

for i:=k+2 to n do

for j:=k+1 to i do

if(a[j]>a[i])and(f[j]+1>f[i])and(a[j]>a[k])then f[i]:=f[j]+1;

y:=0;

for i:=k+1 to n do if f[i]>y then y:=f[i];

if n-(x+y)