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

было бы удобней с ifd>0, if d<0, if d=0

Program kwur;Uses CRT;Var a,b,c,d,x1,x1: real;BeginClrscr;Write('введите коэффициенты уравнения a,b,c'); readln(a,b,c);D:=b*b-4*a*c;If d>=0 thenBeginX1:=(-b+sqrt(d))/(2*a); x2:=(-b-sqrt(d))/(2*a);Writeln('x1=',x1' x2=',x2)END;Else writeln('действительных корней нет');End.