zadach7.PAS

{* Задача 7 *}

Unit ZADACH7;
Interface
Implementation
Begin
 writeln('Пользователь вводит текст на русском языке. Заменить в тексте слова «обязательно» на «возможно».');
End.

Program zadach7;

Uses zadach7.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  s : String;
  p : integer;
Begin
  read (s);
  p := pos('обязательно', s);
  While p > 0 Do
  Begin
    Delete(s, p, 11);
    Insert('возможно', s, p);
    p := pos('обязательно', s);
  End;
  write (s);
End.