Написать програму для ПАСКАЛЬ на уравнение ах (в квадрате)+bx+c=0

var a,b,c,x1,x2,D: real; beginWriteln ('Введите коэффициенты квадратного уравнения'); Write ('a='); readln (a); Write ('b='); readln (b); Write ('c='); readln (c); D: =b*b-4*a*c; if D<0 then writeln ('Действительных корней нет') elsebeginx1: =(-b+sqrt (D) / (2*a); x2: =(-b-sqrt (D) / (2*a); Writeln ('x1=',x1); Writeln ('x2=',x2); readlnend; end.