Написать программу решения уравнения 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.