Viết chương trình giải phương trình ax2+bx+c=0 ( a<>0 ) giúp dùm mình cần gấp sáng nay lúc 7h45 giúp dùm mình Bài 9: Cấu trúc rẽ nhánh

Program baitap;

Uses crt;

Var d,x1,x2,a,b,c : real;

Begin

Clrscr;

Write('a='); Readln(a);

Write('b='); Readln(b);

Write('c='); Readln(c);

d:=b*b-4*a*c;

If d>0 then

     Begin

     x1:=(-b+sqrt(d))/(2*a);

     x2:=(-b-sqrt(d))/(2*a);

     Writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2);

     End

Else if d=0 then

               Begin

               x1:=(-b)/(2*a);

               Writeln('PT co nghiem kep la: ',x1:0:2);

               End

Else Writeln('Phuong trinh vo nghiem');

Readln;

End.