begin
  WriteLn('Индекс последнего вхождения подстроки в строку: ', ReadLnString('Введите текст:').LastIndexOf(ReadLnString('Введите подстроку:')))
end.