var
s:string;
i,count:integer;
begin
count:=0;
readln (s);
for i:=1 to length(s) do
if (s[i]=' ') then count:=count+1;
writeln ('В данной строке ',count+1,' слов');
end.
var
s:string;
i,count:integer;
begin
count:=0;
readln (s);
for i:=1 to length(s) do
if (s[i]=' ') then count:=count+1;
writeln ('В данной строке ',count+1,' слов');
end.