Uses crt;
Var
a,c:string;
i,n,k,l:integer;
Begin
read(a);
k:=0;
l:=0;
i:=1;
c:=';';
while (i <= length(a)) do
begin
while ((i <= length(a))and(a[i]=' '))do
inc(i);
inc(l);
while ((i <= length(a))and(a[i]<>' '))do
begin
if a[i] = ',' then begin delete (a,i,1);insert(a,c,1);inc(k);end;
inc(i);
end;
end;
if a[length(a)]=' ' then dec(l);
writeln('Dlina =',length(a));
writeln('kol-vo zamen =',k);
writeln('kol-vo slov=',l);
writeln(a);
End.