Question

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

Answer 1

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