var

  s:string;

  c1, c2, i:integer;

begin

  writeln('Введите строку');

  readln(s);

  c1 := 0;

  c2 := 0;

  for i := 1 to Length(s) do

  begin

    if s[i] = '(' then

      inc(c1);

    if s[i] = ')' then

    begin

      inc(c2);

      if c2 > c1 then

      begin

        writeln('Скобки расставленны неверно');

        exit;

      end;

    end;

  end;

  if c1 = c2 then

    writeln('Скобки расставлены верно')

  else

    writeln('Скобки расставленны неверно');

end.