Создайте программу вычисления корней квадратного уравнения по данным значениям его коэффициентов

Program kvur; var x1,x2,d,e,f, a, b, c: real; begin writeln('Решение квадратного уравнения(ax^2+bx+c=0).'); write('Введите a: '); readln(a); write('Введите b: '); readln(b); write('Введите c: '); readln(c); d:=sqr(b)-4*a*c; writeln('вы ввели:'); writeln('a= ',a:6:2); writeln('b= ',b:6:2); writeln('c= ',c:6:2); writeln('D=b*b-4*a*c=',d:6:2); if (d>=0) then begin e:= (-b/(2*a)); f:= (sqrt(d)/(2*a)); x1:= (e+f); x2:= (e-f); writeln('D>= 0, значит корни действительные: '); writeln('x1= ',x1:6:2); writeln('x2= ',x2:6:2); end; if(d<0) then begin e:= (-b/(2*a)); f:= (sqrt(-d)/(2*a)); x1:= (e+f); x2:= (e-f); writeln(' D<0, значит корни комплексные: '); writeln('x1= ', e:6:2, ' + ', f:6:2, 'i'); writeln('x2= ', e:6:2, ' - ', f:6:2, 'i'); end; end.