Question

Написать программу для Pascal. Вот условие. Надеюсь на помощь.

Answer 1

program asdasd;
    var s:string;
begin;
    read(s);
    if pos('рак',s) = 0 then write('Нет') else write('Да');
end.