Задача 3

program Primer8_2;

var str: string;
var i,k: integer;

begin
  write('Введите строку: ');
  readln(str);
   k:=0;
  for i:=1 to length(str) do
  begin

  if(str[i]='я')or(str[i]='Я') then
  k:=k+1;
  end;
  writeln('Результат: ',k);
end.