ввести число a решите неравенство ax<-5 на паскале с if the else 10 класс

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.