Создать программу которая вычисляет количество повторений буквы п в тексте текст вводит пользователь программы с клавиатуры

var

s: string; / / объявляем переменную строкового типа.

i, x : integer; / / объявляем переменные целочисленного типа.

begin

writeln ('Введите произвольную строку:'); / / вывод строки на экран.

readln (s); / / считываем строку, введенную с клавиатуры.

for i:=1 to length (s) do / / начало цикла.

begin

if s[i] = 'п' then / / если текущий символ строки буква П.

x : = x + 1; / / считаем количество повторений буквы П.

end;

write ('Количество повторений буквы П в тексте: ', x); / / вывод строки на экран.

end.