{* Задача 5 *}

Unit ZADACH5;
Interface
Implementation
Begin
 writeln('С клавиатуры вводится строка символов. Удалите из нее первый знак препинания. Предварительно объявите множество знаков препинания (точка, запятая, двоеточие, точка с запятой,…). Например, если была введена строка – ACDV,FG.RT!GF?F, выведется строка: ACDVFG.RT!GF?F. ');
End.

Program zadach5;

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