program heslo;

var buf:string;
    max_start1, max_start2, max_len : integer;
    len, i, j , buf_len: integer;
begin
    readln(buf);
    buf_len:= length(buf);

    max_len:=0;
    for i:= 1 to buf_len-1 do begin   //pro každý rozestup začátků
        len:=0;                       //hledam nejdelší shodující se posloupnosti
        for j:= 1 to buf_len-i do begin
            if (buf[i+j]=buf[j]) then begin
                Inc(len);  //pokud se znaky shodují, prodloužíme posloupnost shodných znaků
              	if (len>max_len) then begin
                    max_len:=len;
                    max_start1:=j-len+1;
                    max_start2:=max_start1+i;
                end;
            end
            else len:=0;  //jinak počitadla vynuluju
        end;
    end;

    writeln('Řetězce mají délku ',max_len,' a začínají na ',max_start1,' a ',max_start2);
    readln;

end.