Дана строка , определяющая запись формулы.написать программу определяющею открывающихся и закрывающихся скобок.

Вариант для (){}[]  01function  balance(a) {02        for  (var  d = /(\u005b|\u0028|\u007b)[^\u005b\u0028\u007b]*? $/,03          e = {04                "(": /\u0028[^\u007d\u005d]*? \u0029/,05                "[": /\u005b[^\u0029\u007d]*? \u005d/,06                "{": /\u007b[^\u0029\u005d]*? \u007d/07        }, b, c = ! 0; c; ) b = a, a = a.replace(d,  function  (a, b) {08                return  a.replace(e[b],  "")09        }), b == a & & (c = ! 1); 10        return  ! /[\u005b\u005d\u0028\u0029\u007b\u007d]/.test(a)11}; 12  13  14alert(balance("{}({}123(45))")+"\n"+balance("{}{}1234][5")+"\n"+balance("< > < (([]){}< [{{{{}}[[]]}}]> )> "))

uses drawman;

begin

field(10,10);

    penup;

    topoint(4,4);

    pendown;

    topoint(6,4);

    topoint(6,6);

    topoint(4,6);

    topoint(4,4);

    topoint(5,1);

    topoint(6,4);

    topoint(9,5);

    topoint(6,6);

    topoint(5,9);

    topoint(4,6);

    topoint(1,5);

    topoint(4,4);

end.

var a,b,c: array[1..100] of integer;

i,n: integer;

begin

      n: =1;

      for i: =1 to 25 do

      begin

          a[i]: =random(20)+100;

          write(a[i],' ');

          if (i > 14) and (i < 21) then n: =n*a[i];

      end;

      writeln;

      write('произведение=',n); writeln;

end.