Написать программу решения уравнения ax2+bx = 0 для произвольных а и b. В паскале , срочно нужно ! Заранее спасибо))

Var a,b,x:real;
begin
write(Введите a,b); readln(a,b);
writeln(Уравнение: ,a,x^2 + ,b,x = 0);
x:=-b/a;
writeln(Корни уравнения: х=0  x=,x);
end.