记录编号	14736	评测结果	AAAAAAAAAA
题目名称	[USACO Oct09] 牛棚回声	最终得分	100
用户昵称	EnAsn	是否通过	通过
代码语言	Pascal	运行时间	0.002 s
提交时间	2009-11-03 20:17:25	内存使用	0.11 MiB

program ex;
var
 s1,s2:string;
 l,ans:integer;
procedure dota(s1,s2:string);
 var
  i:integer;
 begin
  for i:=1 to l do
   if copy(s1,1,i)=copy(s2,length(s2)-i+1,length(s2)) then
    if i>ans then ans:=i;
 end;
begin
 assign(input,'echo.in');
 assign(output,'echo.out');
 reset(input);
 rewrite(output);
 readln(s1);
 readln(s2);
 close(input);
 if length(s1)>length(s2) then l:=length(s2)
                          else l:=length(s1);
 dota(s1,s2);
 dota(s2,s1);
 writeln(ans);
 close(output);
end.