program rongid;
uses crt;

var
liin    :       string;
a       :       string;
edasi   :       string;
algus   :       string;
i,j,b   :       integer;
kordi   :       integer;

begin
clrscr;
writeln('štle rongi liin');
readln(liin);
b:=0;
for i:=1 to length(liin) do
    begin
    kordi:=1;
    a:=copy(liin,i,1);
    algus:=copy(liin,1,i-1);
    edasi:=copy(liin,i+1,length(liin)-2);
    repeat
          if pos(a,edasi)>0 then kordi:=kordi+1;
          edasi:=copy(edasi,pos(a,edasi)+1,length(edasi));
    until pos(a,edasi)=0;
    if (kordi>1) and (pos(a,algus)=0) then
       begin
       b:=b+1;
       writeln('Peatuses ',a,' peatub rong ',kordi,' korda.');
       end;
    end;
if b=0 then writeln('Rong peatub käigis jaamades �he korra.');
writeln;
end.