program lab6 (input, output);
const 
n = 40;
var 
st: string;
i, k: integer;
begin 
writeln('Please enter text');
readln(st);
if length(st) > n then 
writeln('Text is longer then 40 symbols')
else 
begin 
k := 0;
for i := 1 to length (st) 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;
readln;
end.