program CheckBrackets1;
const
  n = 40;
var
  st: array[1..n] of char;
  i, count, len: integer;
begin
  writeln('Enter a string (up to 40 chars):');
  i := 1;
  repeat
    read(st[i]);
    i := i + 1;
  until (eoln) or (i > n);
  len := i - 1;
 
  count := 0;
  for i := 1 to len do
  begin
    if st[i] = '(' then
      count := count + 1
    else if st[i] = ')' then
      count := count - 1;
 
    if count < 0 then break;
  end;
 
  if count = 0 then
    writeln('Brackets are balanced.')
  else
    writeln('Brackets are NOT balanced.');
end.

cHJvZ3JhbSBDaGVja0JyYWNrZXRzMTsKY29uc3QKICBuID0gNDA7CnZhcgogIHN0OiBhcnJheVsxLi5uXSBvZiBjaGFyOwogIGksIGNvdW50LCBsZW46IGludGVnZXI7CmJlZ2luCiAgd3JpdGVsbignRW50ZXIgYSBzdHJpbmcgKHVwIHRvIDQwIGNoYXJzKTonKTsKICBpIDo9IDE7CiAgcmVwZWF0CiAgICByZWFkKHN0W2ldKTsKICAgIGkgOj0gaSArIDE7CiAgdW50aWwgKGVvbG4pIG9yIChpID4gbik7CiAgbGVuIDo9IGkgLSAxOwoKICBjb3VudCA6PSAwOwogIGZvciBpIDo9IDEgdG8gbGVuIGRvCiAgYmVnaW4KICAgIGlmIHN0W2ldID0gJygnIHRoZW4KICAgICAgY291bnQgOj0gY291bnQgKyAxCiAgICBlbHNlIGlmIHN0W2ldID0gJyknIHRoZW4KICAgICAgY291bnQgOj0gY291bnQgLSAxOwoKICAgIGlmIGNvdW50IDwgMCB0aGVuIGJyZWFrOwogIGVuZDsKCiAgaWYgY291bnQgPSAwIHRoZW4KICAgIHdyaXRlbG4oJ0JyYWNrZXRzIGFyZSBiYWxhbmNlZC4nKQogIGVsc2UKICAgIHdyaXRlbG4oJ0JyYWNrZXRzIGFyZSBOT1QgYmFsYW5jZWQuJyk7CmVuZC4=

NQ==

5