VAR
 f:TEXT;
 Q1o,Q1c,Q2o,Q2c,Q3o,Q3c:WORD;
 Ch:Char;
 Brack,Brack1:ARRAY[1..255] of Char;
 Nbr,Nbr1,i,j:BYTE;
 Incor:Boolean;
BEGIN
 Assign(f,'D:\xxx');
 ReSet(f);
 Nbr:=0; {full number of brackets}
 Q1o:=0;
 Q1c:=0;
 Q2o:=0;
 Q2c:=0;
 Q3o:=0;
 Q3c:=0;
 Repeat
  Read(f,Ch);
  if (Ch='(') or (Ch=')') or (Ch='[') or (Ch=']') or (Ch='{') or (Ch='}') then
   begin
    Inc(Nbr);
    Brack[Nbr]:=Ch;
   end;
  if Ch='(' then Inc(Q1o);
  if Ch=')' then Inc(Q1c);
  if Ch='[' then Inc(Q2o);
  if Ch=']' then Inc(Q2c);
  if Ch='{' then Inc(Q3o);
  if Ch='}' then Inc(Q3c);
 Until EoF(f);
 Close(f);
 Brack1:=Brack;
 Nbr1:=Nbr;
 If (Q1o<>Q1c) or (Q2o<>Q2c) or (Q3o<>Q3c) then
  begin
   WriteLn('Incorrect:');
   if Q1o<>Q1c then
    WriteLn(Q1o,' "(" and ',Q1c,' ")"');
   if Q2o<>Q2c then
    WriteLn(Q2o,' "[" and ',Q2c,' "]"');
   if Q3o<>Q3c then
    WriteLn(Q3o,' "{" and ',Q3c,' "}"');
  end
 else
  begin
   i:=0;
   Repeat
    Inc(i);
    Incor:=true;
    If ((Brack[i]='(') and (Brack[i+1]=')')) or
       ((Brack[i]='[') and (Brack[i+1]=']')) or
       ((Brack[i]='{') and (Brack[i+1]='}')) then
     begin
      Incor:=false;
      for j:=i+2 to Nbr do
       Brack[j-2]:=Brack[j];
      Dec(Nbr,2);
      i:=0;
     end;
   Until (Nbr=0) or (i=Nbr-1);
   If Incor then
    begin
     WriteLn('Incorrect: the order of brackets is wrong:');
     for i:=1 to Nbr1 do
      Write(Brack1[i]);
     WriteLn;
    end
   else
    Writeln('Correct');
  end;
 ReadLn;
END.

program ner;
var
a,b,x: real;
s: char;
p:integer;
begin
writeln('Enter the values of the constants a, b');
readln(a,b);
if (a<>0) and (b<>0) 
  then begin x:=-b/a;
         writeln('Enter symbol relationships');
         readln(s);
         p:=ord(s);
         case p of
         60: writeln('x less than ',x:1:4);
         62: writeln('x is greater than ',x:1:4);
         61: writeln('x is ',x:1:4)
         else writeln('This is not a sign relationship')
         end; end
      else writeln('constant need not be equal to 0');
readln
end.