Задан фрагмент текста. проверить, имеется ли в нем открывающих и закрывающих круглых скобок. рекомендации: должно существовать взаимно однозначное соответствие открывающих и закрывающих скобок, при котором открывающая скобка всегда предшествует соответствующей.
var s:string; i,n:integer;
Begin
read(s);
for i := 1 to length(s) do begin
if s[i]="(" then n=n+1;
if s[i]=")" then n=n-1;
if n<0 then begin
Write("нет баланса");
halt;
end;
Write("есть баланс");
End