Uses crt;
Var
    a,b: integer;
Begin
    clrscr;
    write('Nhap a: '); readln(a);
    write('Nhap b: '); readln(b);
    if a<>0 then writeln('Phuong trinh co nghiem x=',-b/a:4:2)
    else
        if(b=0) then writeln('Phuong trinh co vo so nghiem')
        else writeln('Phuong trinh vo nghiem');
    readln;
End.

Bai 1:

import math
a = float(input("Nhập Hệ Số a: "))
b = float(input("Nhập Hệ Số b: "))
delta = b*b - 4*a
#giải phương trình
if delta < 0:
    print("\nPhương Trình Vô Nghiệm !")
elif delta == 0:
    print("\nPhương Trình Có Nghiệm Kep x1 = x2", -b/(2*a))
else:
    x1 = (-b - math.sqrt(delta))/(2*a)
    x2 = -b/a - x1
    print("\nPhương Trình Có 2 Nghiệm Phân Biệt ")
    print("x1 = ",x1, "x2 = ", x2)
Câu 2:

import math
a = float(input("Nhập Hệ Số a: "))
b = float(input("Nhập Hệ Số b: "))
c = float(input("Nhập Hệ Số c: "))
delta = b*b - 4*a*c
if delta < 0:
    print("\nPhương Trình Vô Nghiệm !")
elif delta == 0:
    print("\nPhương Trình Có Nghiệm Kep x1 = x2", -b/(2*a))
else:
    x1 = (-b - math.sqrt(delta))/(2*a)
    x2 = -b/a - x1
    print("\nPhương Trình Có 2 Nghiệm Phân Biệt ")
    print("x1 = ",x1, "x2 = ", x2)