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

var
a,b:string;
i,j,k,l,big,head,tail:integer;
begin
assign(input,'echo.in');reset(input);
assign(output,'echo.out');rewrite(output);
readln(a);
read(b);
big:=0;

for i:=1 to length(a) do
 for j:=1 to length(b) do
  if a[i]=b[j] then
   begin
    k:=1;
    head:=i;
    tail:=j;
    while (a[head+1]=b[tail+1])and(head<length(a))and(tail<length(b))do
     begin
      inc(k);
      inc(head);
      inc(tail);
     end;
    if i=1 then if k>big then big:=k;
    if head=length(a) then if k>big then big:=k;
   end;

write(big);

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