Написать программу в паскале, которая ищет корень уравнения ах+b=0

Var
 a,b: real;
begin
 read(a,b);
 if a <> 0 then
  writeln('x = ', -b/a)
 else if b = 0 then
  writeln('Any number')
 else
  writeln('No solutions')
end.