const
  n = 20; {maks dlina slova}

var
 kolvo: array[1..n] of integer;
 slovo, stroka: string;
 i, m, c: integer;
 f: text;

begin
 for i := 1 to n do
 begin
  assign(f, 'c:\in.txt');
  reset(f);
  while not eof(f) do
  begin
   readln(f, stroka);
   slovo := '';
   for m := 1 to length(stroka) do
   begin
    if stroka[m] in [',',' '] then {v kvdratnih skobkah cherez zapyatuyu perechislit' vse razdeliteli slov.kazhdiy razdelitel' v kavichkah razdelitel'}
    begin
     if length(slovo) > 0 then
     begin
      kolvo[length(slovo)] := kolvo[length(slovo)] + 1;
      slovo := '';
     end
     else slovo := slovo + stroka[m];
    end;
    if length(slovo) > 0 then kolvo[length(slovo)] := kolvo[length(slovo)] + 1;
   end;
  end;
  close(f);
 end;
 assign(f, 'c:\out.txt');
 rewrite(f);
 for c := 1 to n do
 writeln(f, 'slov iz', c, 'bukv:', kolvo[c]);
 close(f);
 readln;
 end.