uses crt;
var s:text;
var n:integer;
var w:char;
begin
clrscr;
assign(s,'slova.txt');
reset(s);
repeat
read(s,w);

if((w=' ') or (eoln(s))) then begin
inc(n);
repeat
read(s,w);
until(not(w=' '));
end;
until(eof(s));
writeln('Pocet slov: ',n);
readln;
end.