var a: integer;
begin
var infinity:=#8734;
var elementOf:=#8712;
writeln('ax < -5');
write('Введите a: ');
readln(a);
if a = 0 then
writeln('Нет решений');
exit;
end;
if a > 0 then
writeln('x '+elementOf+' (-'+infinity+'; ',(a/-5),')')
else
writeln('x '+elementOf+' (',(a/-5),'; +'+infinity+')');
end.
var a: integer;
begin
var infinity:=#8734;
var elementOf:=#8712;
writeln('ax < -5');
write('Введите a: ');
readln(a);
if a = 0 then
begin
writeln('Нет решений');
exit;
end;
if a > 0 then
writeln('x '+elementOf+' (-'+infinity+'; ',(a/-5),')')
else
writeln('x '+elementOf+' (',(a/-5),'; +'+infinity+')');
end.