program WordCount;

var
text: string;
count, i: integer;

begin
writeln${}^{\prime }Enteratext{:}^{\prime }$;
readln$text$;

count := 0;
i := 1;

while i <= length$text$ do
begin
if text$$i$$ <> ' ' then
begin
count := count + 1;
while (i <= length(text)) and (text[i] <> ' ') do
i := i + 1;
end
else
i := i + 1;
end;

writeln${}^{\prime }Numberofwordsinthetext{:}^{\prime },count$;
end.