Написать программу решения уравнения вида: ax>b (Паскаль)

begin
  var (a,b):=ReadReal2('Введите a и b для неравенства ax>b:');
  if a=0 then Writeln('Нет решения')
  else Writeln('x > ',b/a)
end.


Введите a и b для неравенства ax>b: -6 3.18
x > -0.53