Помогите сделать в pascal abc. Дана строка.Укажите те слова, которые содержат хотя бы одну букву к.

var
  s: string;

begin
  readln(s);
  foreach k: string in s.Split( ) do
    if (pos(к, k) > 0) then
      writeln(k);
end.

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