Ответ: var  s: string;begin  readln(s);  foreach k: string in s.Split(‘ ‘) do    if (pos(‘к’, k) > 0) then      writeln(k);end.