{* Задача 294 *}

Unit ZADACH294;
Interface
Implementation
Begin
 writeln('Проверить, одинаковое ли число открывающихся и закрывающихся ско¬бок в данной строке.');
End.

Program zadach294;

Uses zadach294.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  s : String;
  i : integer;
  j : integer;
  n : integer;
Begin
  clrscr; {* Стираем всё с экрана *}
  writeln('Введите строку символов: ');
  readln(s);
  i := 0;
  j := 0;
  For n := 1 To length(s) Do {* Цикл для n => [1 .. length(s)] *}
  Begin
    If s[n] = '(' Then
      i := i + 1;
    If s[n] = ')' Then
      j := j + 1;
  End;
  If i = j Then
    writeln('В строке равное число скобок ()')
  Else writeln('В строке разное число скобок ()');
    readln
End.