uses crt;
Var f:text;
    i,sl:integer;
       s:char;
    wrd :string;
    begin
    assign(f,'77/pr1.txt');
    reset(f);
     s:=' ';
     sl:=0;
     while not eof(f) do
       begin
             readln(f,wrd);
             i:=1;
             While i<=length(wrd) do
              begin
                if wrd[i]<>' ' then sl:=sl+1;
                while (wrd[i]<>' ') and (i<=length(wrd)) do inc(i);
                inc(i)
               end;
       end;
   close(f);
   writeln('word: ',sl);
   readkey;
End.