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

program echo;
var
  a,b,c:string;
  i,p,max:integer;
begin
  assign(input,'echo.in');
  reset(input);
  assign(output,'echo.out');
  rewrite(output);
  readln(a);
  readln(b);
  max:=-1;
  for i:=1 to length(a) do
  begin
    c:=copy(a,i,length(a)-i+1);
    p:=pos(c,b);
    if (p=1) and (max<length(a)-i+1) then
    begin
      max:=length(a)-i+1
    end
  end;
  for i:=1 to length(b) do
  begin
    c:=copy(b,i,length(b)-i+1);
    p:=pos(c,a);
    if (p=1) and (max<length(b)-i+1) then
    begin
      max:=length(b)-i+1
    end
  end;
  writeln(max);
  close(input);
  close(output)
end.