Вопрос, который вызвал трудности

Проверить правильность написания круглых скобок (программа Паскаль)

Ответ экспертов Учись.Ru

Чтобы дать полноценный ответ, был привлечён специалист, который хорошо разбирается в теме «ЕГЭ (школьный)». Ваш вопрос звучал так: Проверить правильность написания круглых скобок (программа Паскаль)

После обсуждения с другими специалистами сервиса мы пришли к выводу, что правильный ответ на ваш вопрос будет звучать следующим образом:

Var
   A:String[50];
   K,I,N:Integer;
BEGIN
   WriteLn(‘Введите тест’);
   ReadLn(A);
   N:=Length(A);
   FOR I:=1 TO N DO Begin
      IF A[I]=’(‘ THEN=N+1;
      IF A[I]=’)‘ THEN N:=N-1;
      IF N<0 THEN Begin WriteLn(‘Неверно’); Break; End;
   End;
   IF N=0 THEN WriteLn(‘Верно’) ELSE WriteLn(‘Неверно’);            
END.