Var     ch:Char;
        S:Array[-1..200000] of Longint;
        tmp:String;
        n,i,j,p,q,k,maxx:Longint;
Function max(x,y:Longint):Longint;
Begin
        If x>y then max:=x else max:=y;
End;

Begin
        tmp:='';
        s[0]:=0;
        While not eof do
         Begin
          Read(ch);
          If ((ch in ['a'..'z']) or (ch in ['A'..'Z'])) then tmp:=tmp+ch
          Else If length(tmp)>0 then
           Begin
            inc(n);
            p:=length(tmp);

            If (n<3) then s[n]:=p
            Else s[n]:=max(s[n-2],s[n-3])+p;

            If s[n]>maxx then maxx:=s[n];

            tmp:='';

           End;
         End;

        If n=0 then Writeln(length(tmp)) Else
        Writeln(maxx);
End.

Please help. Tks