program Project1;

var
  F:textfile;
  nubmer_of_words,i:integer;
  str:string;

begin
Assign(F,'c:\pr1.txt');
reset(F);

nubmer_of_words:=0;
while not EOF(f) do
begin
   readln(f,str);
   //если в строке видим пробел, а перед ним - НЕ пробел, значит +1 слово
   for i:=1 to length(str) 
      do if ((str[i]=' ') and (str[i-1]<>' ')) then inc(nubmer_of_words);
   //если последний символ в строке - не пробел значит +1 слово
   if str[length(str)]<>' ' then inc(nubmer_of_words);
end;
closefile(f);
WriteLn(nubmer_of_words);
Readln;
end.