var
 a1,a2,b1,b2,r1,r2:real;

begin
 writeln('A1X+B1>0');
 writeln('A2X+B2<0');
 Repeat
  write('a1= ');
  readln(a1);
  write('a2= ');
  readln(a2);
  if (a1=0) or (a2=0) then writeln('Incorrect values!!!');
 Until (a1<>0) and (a2<>0);
 write('b1= ');
 readln(b1);
 write('b2= ');
 readln(b2);
 if b1>0 then
  begin
   if a1>0 then
    writeln(' ' ,a1:0:3,'X + ',b1:0:3,' > 0')
   else
    writeln(a1:0:3,'X + ',b1:0:3,' > 0');
  end
 else
  begin
   if a1>0 then
    writeln(' ' ,a1:0:3,'X - ',Abs(b1):0:3,' > 0')
   else
    writeln(a1:0:3,'X - ',Abs(b1):0:3,' > 0');
  end;
 if b2>0 then
  begin
   if a2>0 then
    writeln(' ' ,a2:0:3,'X + ',b2:0:3,' < 0')
   else
    writeln(a2:0:3,'X + ',b2:0:3,' < 0');
  end
 else
  begin
   if a2>0 then
    writeln(' ' ,a2:0:3,'X - ',Abs(b2):0:3,' < 0')
   else
    writeln(a2:0:3,'X - ',Abs(b2):0:3,' < 0');
  end;
 r1:=((-b1)/a1);
 r2:=((-b2)/a2);

 if (a1>0) and (a2>0) then
  begin
   if r1>r2 then writeln('No solution!') else
    writeln(r1:0:3,' < X < ',r2:0:3);
  end
 else

 if (a1>0) and (a2<0) then
  begin
   if r1>r2 then writeln('X > ',r1:0:3) else
    writeln('X > ',r2:0:3);
  end
 else

 if (a1<0) and (a2>0) then
  begin
   if r1>r2 then writeln('X < ',r2:0:3) else
    writeln('X < ',r1:0:3);
  end
 else

 begin
  if r2>r1 then writeln('No solution!') else
   writeln(r2:0:3,' < X < ',r1:0:3);
 end;

 Readln
end.