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.