记录编号	5547	评测结果	AAAAAAAAAA
题目名称	[LOL2000] 回文词	最终得分	100
用户昵称	王瑞祥K	是否通过	通过
代码语言	Pascal	运行时间	3.219 s
提交时间	2008-10-27 13:52:00	内存使用	47.82 MiB

program palin(input,output);
var
 c:array[0..5000,0..5000]of integer;
 a,b:array[1..5000]of char;
 n,i,j:integer;
procedure length;
var i,j:integer;
begin
 for i:=1 to n do begin c[i,0]:=0;c[0,i]:=0;end;
 for i:=1 to n do
  for j:=1 to n do
   if a[i]=b[j] then c[i,j]:=c[i-1,j-1]+1
   else if c[i,j-1]>c[i-1,j] then c[i,j]:=c[i,j-1]
        else c[i,j]:=c[i-1,j];
end;
begin
 assign(input,'palin.in');assign(output,'palin.out');
 reset(input);rewrite(output);
 readln(n);
 for i:=1 to n do read(a[i]);
 j:=0;
 for i:=n downto 1 do begin inc(j);b[j]:=a[i];end;
 length;
 write(n-c[n,n]);
 close(input);close(output);
end.