GIẢI PHƯƠNG TRÌNH BẬC 2

Code:

GiaiPTB2[a_, b_, c_] :=
    If[a == 0,
        If[b == 0,
          If[c == 0, Print["VSN"], Print["VN"]], Print["Phuong trinh co nghiem x = ", -c/b]],
           delta := b^2 - 4*a*c;
           If[delta > 0,
                 Print["x1=", (-b + Sqrt[delta])/(2a)];
                 Print["x2=", (-b - Sqrt[delta])/(2a)];
                 , If[delta == 0, Print["x=", -b/(2a)], Print["PT VN"]
            ]
      ]
    ];
a = Input["Nhap a"];
b = Input["Nhap b"];
c = Input["Nhap c"];
GiaiPTB2[a, b, c];