Написать программу, которая решает уравнение ax+b

ax + b ax x
a, b могут быть дробными числами.
Язык программирования: Паскаль

var
a, b : real;
begin
readln (a);
readln (b);
if a 0 then
writeln (x if (a = 0) and (b writeln (x - любое число);
if (a = 0) and (b >= 0) then
writeln (нет решений)
end.