{* Задача 12 *}

Unit ZADACH12;
Interface
Implementation
Begin
 writeln('Дана строка символов. Замените в ней все восклицательные знаки на вопросительные. Например, если была введена строка – ВПСРА!НЕК!!ЛГ!!!, выведется строка: ВПСРА?НЕК??ЛГ???. ');
End.

Program zadach6;

Uses zadach12.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  i   : integer;
  j   : integer;
  str : String;
Begin
  clrscr; {* Очистка экрана *}
  writeln('введите строку с восклицательными знаками');
  readln(str);
  j := length(str);
  For i := 1 To j Do {* Цикл для i => [1 .. j] *}
    If str[i] = '!' Then
      str[i] := '?';
  writeln(str);
End.