program string_14;
var s:string;
k,i:integer;
begin
Write('введите строку ');
Readln(s);
i:=1;
repeat
if s[i]=' ' then k:=k+1;
i:=i+1
until i=length(s);
writeln('количество пробелов=',k);
readln;
end.