记录编号	4620	评测结果	AAAAAAAAAA
题目名称	[LOL2000] 回文词	最终得分	100
用户昵称	MayLava	是否通过	通过
代码语言	Pascal	运行时间	3.727 s
提交时间	2008-10-21 17:40:24	内存使用	47.82 MiB

var
 sa,sb:ansistring;
 i,j,l,n:longint;
 f:array[0..5000,0..5000]of integer;
 ff:text;
function max(a,b:longint):longint;
 begin
  if a>b then exit(a);
  exit(b);
 end;
begin
 assign(ff,'palin.in');
 reset(ff);
 readln(ff,l);
 readln(ff,sa);
 close(ff);
 for i:=l downto 1 do
  sb:=sb+sa[i];
 for i:=1 to l do
  for j:=1 to l do begin
   if sa[i]=sb[j] then f[i,j]:=f[i-1,j-1]+1
   else f[i,j]:=max(f[i-1,j],f[i,j-1]);
  end;
 assign(ff,'palin.out');
 rewrite(ff);
 writeln(ff,l-f[l,l]);
 close(ff);
end.