Em hãy viết tiếp lệnh để nhận được chương trình giải phương trình bậc hai

Giải phương trình bậc 2 [ax2+ bx + c =0]

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