Система тестов

Номер теста	Проверяемый случай	Данные	Результат
	При просмотре линейной записи слева направо первой встречается закрывающая скобка	''a)b+1(''	''Нет баланса''
	Первой встречается открывающая скобка, но число открывающих и закрывающих скобок не совпадает	''(a+b))''	''Нет баланса''
	Есть баланс скобок	''(a+b/(c*d))''	''Есть баланс''

Program Balance; Uses Crt; Var S : String; Dlina, Flag, i : Integer;BEGIN ClrScr; GotoXY(15, 5); Write('Введите линейную запись математической формулы :'); GotoXY(32,7); ReadLn(S); i:=1; Flag:=0; Dlina:=Length(S); While (Flag>=0) and (i<=Dlina) do begin If S[i] = '(' then Flag:=Flag + 1; If S[i] = ')' then Flag:=Flag - 1; i:=i+1 end; GotoXY(32, 9); WriteLn('О т в е т'); GotoXY(15,11); If Flag=0 then Write('Есть баланс ') else Write('Нет баланса '); WriteLn('открывающих и закрывающих скобок'); ReadLn