Даю 25б.Напишіть програму для розвʼязання квадратного рівняння

ax2+bx+c=0, де a≠0

Спочатку знаходимо D=b2-4*a*c. Якщо D<0, коренів немає. ​

Ответ:

Var

a,b,c,d:real;

Begin

write('Введите коэффициенты уравнения (a, b, c): ');

Readln(a,b,c);

d:=sqr(b)-4*a*c;

if d>0 then Begin

write('X1 = ',((-b)+sqrt(d))/(2*a),' | ');

write('X2 = ',((-b)-sqrt(d))/(2*a));

end else if d = 0 then write('X = ',(-b)/(2*a)) else write('Корней нет');

End.