Выяснить имеется ли в строке последовательность "ПЯТЬ" - PascalABC.NET

Помогите пожалуйста написать программу: Выяснить имеется ли в строке последовательность "ПЯТЬ"

Листинг программы

begin
  WriteLn('В строке есть последовательность ПЯТЬ = ', ReadLnString('Введите строку:').IndexOf('ПЯТЬ') > 0);
end.

Объяснение кода листинга программы

В данном коде используется язык программирования PascalABC.Net.

WriteLn('В строке есть последовательность ПЯТЬ = ', ReadLnString('Введите строку:').IndexOf('ПЯТЬ') > 0); - Выводится строка, которая информирует пользователя о наличии или отсутствии последовательности ПЯТЬ в введенной строке. Значение переменной ReadLnString('Введите строку:') - это строка, которую ввел пользователь. Вызывается метод IndexOf('ПЯТЬ') для поиска подстроки ПЯТЬ в этой строке. Результат сравнения > 0 позволяет определить, найдена ли последовательность ПЯТЬ в строке (если да, то выводится сообщение В строке есть последовательность ПЯТЬ, иначе выводится сообщение В строке нет последовательности ПЯТЬ).