Составить программу решения уравнения ax^2+bx=0 (a,b - вводится с клавиатуры)

var
  a, b: real;
begin
  readln(a, b);
  writeln('X_1 = 0');
  if (a <> 0) then
    writeln('X_2 = ', -b / a)
  else
    if (b = 0) then
      writeln('Х любое');
end.