记录编号	5550	评测结果	AAAAAAAAAA
题目名称	[LOL2000] 回文词	最终得分	100
用户昵称	辨机ZN	是否通过	通过
代码语言	Pascal	运行时间	4.211 s
提交时间	2008-10-27 13:58:26	内存使用	47.82 MiB

program ex(f1,f2);
 type
  zn=array [0..5000] of char;
  la=array [0..5000,0..5000] of integer;
 var
  a,b:zn; c:la; i,j,k,m,n,max:longint;
  f1,f2:text;
 begin
  assign(f1,'palin.in'); reset(f1);
  assign(f2,'palin.out'); rewrite(f2);
  readln(f1,n);
  for i:=1 to n do
   begin
    read(f1,a[i]);
    b[n-i+1]:=a[i];
   end;
  for i:=1 to n do
   for j:=1 to n do
    begin
     max:=0;
     if a[i]=b[j] then max:=c[i-1,j-1]+1;
     if c[i-1,j]>max then max:=c[i-1,j];
     if c[i,j-1]>max then max:=c[i,j-1];
     c[i,j]:=max;
    end;

 max:=c[n,n];
 max:=n-max;
  writeln(f2,max);
  close(f1);
  close(f2);
 end.