记录编号	41375	评测结果	AAAAAAAAAA
题目名称	[USACO Oct09] 牛棚回声	最终得分	100
用户昵称	H J H	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2012-07-22 15:22:51	内存使用	0.17 MiB

var
s1,s2,a1,a2:string;
i,k,l1,l2:longint;
begin
assign(input,'echo.in');
reset(input);
assign(output,'echo.out');
rewrite(output);

readln(s1);
readln(s2);

l1:=length(s1);
l2:=length(s2);
k:=0;

for i:=1 to l1 do
begin
a1:=copy(s1,1,i);
a2:=copy(s2,l2-i+1,i);
if (a1=a2)and(i>k) then k:=i;
end;

for i:=1 to l2 do
begin
a2:=copy(s2,1,i);
a1:=copy(s1,l1-i+1,i);
if (a1=a2)and(i>k) then k:=i;
end;

write(k);
close(input);
close(output);
end.