Составить программу решающую A*X^2+B=C. числа A, B, C вводятся с клавиатуры. результатом работы является X, выводящий с новой строки с точностью до 4 знаков после запятой

program zz1;

var a, b, c, d:real; / / задаем переменные не целого типа

begin

write (' введите первый коэффициент ');

read (a);

write (' введите второй коэффициент ');

read (b);

write (' введите третий коэффициент ');

read (c);

d:=b * b - 4 * a * c; / / рассчитываем дискриминант

if d < 0 then write (' корней нет ');

if d = 0 then write (' корень квадратного уравнения = ', - b/2 * a:5:4);

if d > 0 then Write (' первый корень = ', - b + sqrt (d) / 2 * a:5:4, ' второй корень = ',-b - sqrt (d) / 2 * a:5:4); / / выводим ответ в зависимости от одного из трех условий

END.