Составить программу решения неравенства ах< =в в паскале

Var a,b:integer;
      x:real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
x:=b/a;
writeln('x = ',x);
end.
Так?