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

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.