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

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