Дано квадратное уравнение. Найти корни. Помогите пожалуйста решить программу в АВС паскале? Срочно надо)

Program kvur;var a,b,c,d: real;beginwriteln('Решение квадратного уравнения(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);writeln('b= ',b);writeln('c= ',c);writeln('D=b*b-4*a*c=',d);if (d>0) then beginwriteln('D>0 => уравнение имеет 2 действительных различных корня ');writeln('x1= ',(-b+sqrt(d))/(2*a));writeln('x2= ',(-b-sqrt(d))/2*a);end else if (d=0) then beginwriteln('D=0 => уравнение имеет 2 совпадающих корня');writeln('x1=x2=',-b/(2*a));end else writeln('D<0 => уравнение не имеет действительных корней');end.