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

program niudemousheng;
var
  s1,s2:string;
  i,j,t1,t2,k,l,d:integer;
begin
  assign (input,'echo.in');
  reset (input);
  assign (output,'echo.out');
  rewrite (output);
  readln (s1);
  readln (s2);
  k:=length(s1);
  l:=length(s2);
  if k<l then
    d:=k
  else
    d:=l;
  for i:=1 to d do
    if copy(s1,1,i)=copy(s2,l-i+1,i) then
      t1:=i;
  for i:=1 to d do
    if copy(s1,k-i+1,i)=copy(s2,1,i) then
      t2:=i;
  if t1>t2 then
    writeln (t1)
  else
    writeln (t2);
  close (input);
  close (output)
end.