记录编号	189763	评测结果	AAAAAAAAAA
题目名称	最长公共子序列	最终得分	100
用户昵称	VacaTionGOD	是否通过	通过
代码语言	Pascal	运行时间	0.994 s
提交时间	2015-09-29 12:48:57	内存使用	47.88 MiB

const maxlen=5001;
var
  c:array[0..maxlen,0..maxlen] of integer;
  x,y:ansistring;
  i,j:longint;
begin
assign(input,'lcslength.in');
reset(input);
assign(output,'lcslength.out');
rewrite(output);
  readln(x);
  readln(y);
  fillchar(c,sizeof(c),0);
   for i:=1 to length(x) do
    for j:=1 to length(y) do
     if x[i]=y[j] then c[i,j]:=c[i-1,j-1]+1
       else if c[i-1,j]>c[i,j-1]
         then c[i,j]:=c[i-1,j]
           else c[i,j]:=c[i,j-1];
  writeln(c[i,j]-1);
close(input);
close(output);
end.