viết chương trình giải phương trình ax2+bx+c=0. với a b c được nhập vào từ bàn phím

Program GIAI_PHUONG_TRINH_BAC_HAI;
Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin
Writeln['GIAI PHUONG TRINH BAC II:'];
Writeln['-------------------------------'];
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