Дана знаковая строка произвольной длины найти число пробелов в строке.

program zz1;

var s:string; // задаем переменную строкового типа

i, k:integer;  // задаем переменную целого типа

begin

write ( введите знаковую строку случайной длины );

read(s);  // вводим с клавиатуры строчку

for i:=1 to length(s) do  // организуем цикл, в котором переберем все символы от первого до заключительного

if s[i] = then k:=k+1; // проверяем условие, если очередной знак строчки равен пробелу, то считаем его

write( количество пробелов в знаковой строке случайной длины = , k);

end.