const
 n=20;{maks dlina slova}
var
 kolvo:array[1..n] of integer;
 slovo, stroka:string;
 i,j:integer;
 f:textfile;
begin
 for i:=1 to n do kolvo[i]:=0;  
 assign(f,'c:\in.txt');
 reset(f);

   while not eof(f) do
    begin
     readln(f,stroka);
     slovo:='';
     for j:=1 to length (stroka) do
      begin
       if stroka[j] in ['',''] then {v kvdratnih skobkah
cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'}
        begin
         if length(slovo) > 0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1;
         slovo:='';
        end
       else
        slovo:=slovo+stroka[j];
      end;
     if length(slovo)>0 then kolvo[length(slovo)]:=kolvo[length(slovo)]+1;
    end;

 closefile(f);
 assign(f,'c:\out.txt');
 rewrite(f);
 for i:=1 to n do 
  writeln(f,'slov iz',i,'bukv:',kolvo[i]);
 close(f);
 readln;
end;