СРОЧНО! Напишите код в ТУРБО паскаль, пожалуйста.
Проверить,
одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

Program abc;var a, b, i: integer; s: string;begin a := 0; b := 0; read(s); for i := 1 to length(s) do begin if s[i] = ( then inc(a) else if s[i] = ) then inc(b); end; if a = b then writeln(Одинаковое.) else writeln(Разное.);end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.