program lab6 (input, output);
const 
n = 40;
var 
st: array[1..n] of char;
i, k: integer;
begin 
writeln('Please enter text');
for i := 1 to n do 
read(st[i]);
k := 0;
for i := 1 to n do 
begin 
if st[i] = '(' then 
k := k + 1
else 
if st[i] = ')' then 
k := k - 1;
if k < 0 then 
break;
end;
if k = 0 then 
writeln('Balance of brackets are true')
else 
writeln('Balance of brackets are false');
writeln('Final balance score :',k);
end.