СРОЧНО!! Напишите, ПОЖАЛУЙСТА, код в турбо паскаль
Дана символьная строка. Подсчитать в ней количество вхождений
букв r, k, t.

Program abc;
  var s: string;
           r, k, t, i: integer;
begin
  r := 0;
  k := 0; t := 0;
  read(s);
  for i := 1 to length(s) do
  begin
      if s[i] = r then inc(r)
      else if s[i] = k then inc(k)
      else if s[i] = t then inc(t);
  end;
  writeln(r: , r);
  writeln(k: , k);
  writeln(t: , t);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.