Question

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

Answer 1

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

Answer 2

Var s:array[1..100]:string;
      i:integer;
begin
 write('введите слово);
 read(s);
 for i:=1 to lenght(s) do 
   if s[i]+s[i+1]+s[i+2] = 'рак' then 
  writeln('da')   else  writeln('net')
end.