Рішити ax^2+bx+c написати формулу дискримінанту

prog eq; uses crt; var a,b,c,d,x1,x2:real; begin clrscr; readln ('Введите a,b,c ', a,b,c); d=b×b-4×a×c; if d <0 then writeln ('Действительных корней нет'); else if a <>0 then x1:=(-b-sqrt (d))/(2×a); writeln('Корень уравнения ',x1:5:3); x2:=(-b+sqrt (d))/(2×a); writeln('Корень уравнения ',x2:5:3); else x1:=-c/b; writeln('Корень уравнения ',x1:5:3); endif; readkey; end.