{* Задача 301 *}

Unit ZADACH301;
Interface
Implementation
Begin
 writeln('Дана строка символов, среди которых есть одна открывающаяся и одна закрывающаяся скобка. Вывести на экран все символы, расположенные внутри этих скобок.');
End.

Program zadach301;

Uses zadach301.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Необходимые переменные *}
  s  : String;
  sl : String;
  j  : integer;
  sk : boolean;
Begin
  clrscr; {* Очистка экрана *}
  sk := false;
  writeln('Введите строку символов, содержащую одну');
  writeln('открывающую и одну закрывающую скобки: ');
  readln(s);
  For j := 1 To length(s) Do {* Увеличиваем j от 1 до length(s) с шагом 1 *}
  Begin
    If s[j - 1] = '(' Then
      sk := true;
    If (s[j]')') And (sk = true) Then
      sl := sl + s[j];
    If s[j] = ')' Then
      sk := false;
  End;
  writeln('В скобках заключены символы:');
  writeln(sl);
  readln
End.