Составить программу квадратного уровнения

var a,b,c,D,x1,x2: real; beginreadln (a,b,c); D: =b*b-4*a*c; if D<0 then Writeln ('Только комплексные корни') else begind: =sqrt (d); x1: =(-b+d) / (2*a); x2: =(-b-d) / (2*a); WriteLn ('x1=',x1); WriteLn ('x2=',x2); end; end.