написать программу для решения неполного квадратного уравнения на Паскале.

[Anna_S2dent]

Составить программу для решения неполного квадратного уравнения ax^2+bx=0 при этом исследовать коэффициенты.
Спасите пожалуйста. Буду очень благодарна.

[gaw4]

если уравнение как в условии , то можна так

USES CRT;
VAR a,b:  real;
begin
writeln('для ур-я  ax^2+bx=0');
writeln('вводим a');
readln(a);
writeln('вводим b');
readln(b);
clrscr;
if (a=0) and (b=0) then   writeln('!')
else if a=0 then  writeln('x=0')
else
 begin
        writeln('x1=0');
          writeln('x2= -b/a = ',-b/a);
  end;
ReadLn;
end.