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

Question

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

---

Comments

Не совсем понял задание, переведи на русский если не сложно

---

Дан текст в виде одного слова. Составить программу которая проверяет является частью заданного слова слово "рак". Ответом должно быть да или нет

Answer 1

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.

Answer 2

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