Const
 C=['a'..'z']+['A'..'Z']+['а'..'я']+['А'..'Я']+['0'..'9'];
Var
 S:String;
 W:Array[1..128] of String;
 L,L1,i,j,n:byte;
Begin
 Writeln('Enter the string:');
 Readln(S);
 L:=Length(S);
 i:=0;
 j:=1;
 Repeat
  Inc(i);
 Until S[i] in C;
 W[1]:='';
 While S[i] in C do
  begin
   W[1]:=W[1]+S[i];
   Inc(i);
  end;
 L1:=Length(W[1]);
 Repeat
  while not (S[i] in C) do Inc(i);
  Inc(j);
  W[j]:='';
  while (i<=L) and (S[i] in C) do
   begin
    W[j]:=W[j]+S[i];
    Inc(i);
   end;
 Until i>L;
 n:=0;
 for i:=2 to j do
  if Length(W[i])=L1 then Inc(n);
 writeln('n= ',n);
 readln
End.