5a 6

var
  s: string;
  k, l, i,z: integer;

begin
  Writeln('Напишите формулу');
  readln(s);
  s := s + ' ';
  for i := 1 to length(s) do
  begin
    if s[i] = '(' then
      k := k + 1;
    if k > 0 then
      if s[i] = ')' then begin
        l := l + 1;
        if s[i + 1] = '(' then begin
          writeln('Закрытые скобки не должны стоять перед открытыми!');
        l := -1;
        break;
        end;
      end;
      if s[i] =')' then
      z:=z+1;
  end;
  if l<>z then
  l:=-1;
  if (k = 0) and (l = 0) then
    writeln('Формула не имеет скобок!')
  else
  if (k = l) and (l=z) then
    Writeln('Формула корректна')
  else Writeln('Формула не корректна');
end.