{
TASK: psort
LANG: PASCAL
}

program psort;
var a:array[word] of record p,v,l:word end;
n:word;

procedure readIt;
var i:word;
begin
readln(n);
for i:=1 to n do begin
a[i].p:=0; a[i].l:=0;
read(a[i].v);
end;
end;

procedure go;
var
i,j,l:word;
maxl:word;
begin
maxl:=0;
a[1].l:=0; a[1].p:=0;
for i:=2 to n do
for j:=1 to i-1 do

if a[j].l+1 > a[i].l then
if a[i].v > a[j].v then
//if (a[a[i].p].v > a[j].v) or (a[i].p = 0) then
begin
a[i].p:=j;
a[i].l:=a[j].l+1;
//writeln(a[i].v,' -> ',a[a[i].p].v);
//writeln(n-(a[i].l+1));
if a[i].l>maxl then maxl := a[i].l;
end;
writeln(n-maxl-1);
end;

begin
readIt;
go;

end.
