Viết chương trình giải phương trình bậc 2 ax^2+bx+c=0 c++

Program Bai_lam;
Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin
Write['Nhap he so a='];readln[a];
Write['Nhap he so b='];readln[b];
Write['Nhap he so c='];readln[c];
If a=0 then
   If b=0 then
       If c=0 then
Writeln['Phuong trinh co vo so nghiem']
       Else
Writeln['Phuong trinh vo nghiem']
   Else
Writeln['Phuong trinh co mot nghiem: x=',-c/b:4:2]
Else
Begin
d:=b*b-4*a*c;
If d=0 then
Writeln['Phuong trinh co nghiem kep: x=',-b/[2*a]:4:2]
Else
If d