记录编号	5668	评测结果	AAAAAAAAAA
题目名称	词链	最终得分	100
用户昵称	bly1991	是否通过	通过
代码语言	Pascal	运行时间	0.071 s
提交时间	2008-10-27 20:07:50	内存使用	5.00 MiB

program bly(input,output);
var
  a,st:array[1..10000] of string;
  long,max:integer;
  i,j,n:integer;
  f1,f2:text;
  procedure input0(s:string);
  begin
    inc(long);
    a[long]:=s;
  end;
  procedure output0;
  begin
    a[long]:='';
    dec(long);
  end;
begin
  assign(f1,'link.in');
  reset(f1);
  readln(f1,n);
  for i:=1 to n do readln(f1,st[i]);
  close(f1);

  long:=0;
  for i:=1 to n do begin
    if long=0 then input0(st[i])
              else begin
                if pos(a[long],st[i])=1 then input0(st[i]);
                if pos(a[long],st[i])=0 then begin
                  repeat
                    output0;
                  until pos(a[long],st[i])=1;
                  input0(st[i]);
                end;
              end;
    if long>max then max:=long;
  end;
  assign(f2,'link.out');
  rewrite(f2);
  writeln(f2,max);
  close(f2);
end.