Помогите написать программу решения системы неравенств

[SnakeTH]

Помогите написать программу решения системы неравенств

Нужно написать программу решения системы неравенств и и исследовать все коэффициенты.Сама пример(или на картинке):
а1х+b1>0
a2x+b2<0
Вот вроде бы программа рабочая, но как сделать правильный вывод чтобы выводило "от" "х" и от "х" "до"?

var n,a1,a2,b1,b2:integer;
    r1,r2:real;
begin
 writeln('A1X+B1>0');
 writeln('A2X+B2<0');
 write(' Введите a1=');
 readln(a1);
 write(' Введите a2=');
 readln(a2);
 write('Введите b1=');
 readln(b1);
 write(' Введите b2=');
 readln(b2);
 writeln(' ' ,a1,'X+(',b1,')>0');
 writeln(' ' ,a2,'X+(',b2,')<0');
 r1:=((-b1)/a1);
 r2:=((-b2)/a2);

 

[Vladimir_S]

как сделать правильный вывод чтобы выводило "от" "х" и от "х" "до"?

А вот так:

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.

 

[SnakeTH]

А вот так:

Спасибо)))