program Project6;

{$APPTYPE CONSOLE}

uses
   SysUtils;

var
   Sim : char;
   Str : string;
   i, j, n : integer;
   isCorrect : boolean;
begin
   isCorrect := false;
   Writeln('Здравствуйте, вас приветствует программа для нахождения баланса скобок, введите количество скобок ( не более 40): ');
   repeat
      try
        Readln(n);
        if n > 1 then
          isCorrect := true
        else
          Writeln('Вы ввели недопустимое количество скобок, попробуйте ещё раз, ')
      except
        Writeln('Вы ввели недопустимое количество скобок, попробуйте ещё раз, ');
      end;
   until isCorrect;
   isCorrect := false;
   Write ('Введите ',n,' скобок (каждую с новой строки): ');
   for i := 1 to n do
   begin
      repeat
         Readln(sim);
         if (Sim = '(') or (Sim = ')') then
         begin
            isCorrect := true;
            Str := Str + Sim;
         end
         else
            Writeln('Вы ввели не скобки или не только скобки, попробуйте ещё раз');
      until isCorrect;
   end;
   j := 0;
   for i := 1 to length(Str) do
   begin
      if Str[i] = '(' then j := j + 1;
      if Str[i] = ')' then j := j - 1;
      if j = -1 then
      j := j + length (Str) + 1;
   end;
   if j = 0 then
      Writeln('Баланс скобок соблюдён!')
   else
      Writeln('Баланс скобок не соблюдён.');
   Readln;
end.