Пример кода на Pascal:

program CountSpaces;
var
text: string;
count: integer;
i: integer;
begin
count := 0;
writeln('Введите текст:');
readln(text);
for i := 1 to Length(text) do
begin
if text[i] = ' ' then
count := count + 1;
end;
writeln('Количество пробелов в тексте: ', count);
end.

Этот код запрашивает у пользователя текст, после чего считает количество пробелов в тексте и выводит результат на экран.