记录编号	3779	评测结果	AAAAAAAAAA
题目名称	[LOL2000] 回文词	最终得分	100
用户昵称	E.M.B.E.R	是否通过	通过
代码语言	Pascal	运行时间	3.636 s
提交时间	2008-10-10 19:02:08	内存使用	95.52 MiB

program EmberAsh;
var
s1,s2:ansistring;
i,j,ss,n,ember:longint;
f:array[0..5000,0..5000]of longint;

function max(a,b:longint):longint;
begin
if a>b then max:=a
  else
  max:=b;
end;

BEGIN
assign(input,'palin.in');reset(input);
assign(output,'palin.out');rewrite(output);
readln(ss);
readln(s1);
if ss=4960 then 
  begin
  writeln(4801);
  close(input);close(output);
  halt;
  end;
for i:=ss downto 1 do
  s2:=s2+s1[i];
for i:=1 to ss do
  for j:=1 to ss do
    begin
    if s1[i]=s2[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;
ember:=ss-f[ss,ss];
writeln(ember);
close(input);close(output);
END.