Program PascalGuru;
 
procedure kolvo(var s:string);
var bukvy:set of char;
    i,n:integer;
    x:string;
begin
bukvy:=['A'..'z'];
n:=0;
for i:=1 to length(s) do
    if s[i] in bukvy then inc(n);
 str(n,x);
 s:=s+'('+x+')';
end;
{---------------------------------}
 
var s,s2,slovo:string;
    f:text;
    p:integer;
 
begin
assign(f,'file.txt'); reset(f);
 
writeln('C faila prochitano i podschitany bukvy v kazhdom slove:');  writeln;
 
while not eof(f) do
      begin
      readln(f,s);
 
        s2:='';
        p:=pos(' ',s);
        repeat
        slovo:=copy(s,1,p-1);
        kolvo(slovo);
        s2:=s2+slovo+' ';
        delete(s,1,p);
        p:=pos(' ',s);
        until p=0;
         kolvo(s);
         s2:=s2+s;
 
         writeln(s2);   
      end;
 
 
 
close(f);
readln;
end.