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

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.