Viết chương trình giải phóng trình ax²+bx+c=0 Với a,b nguyên dương được nhập từ bàn phím Giúp em với!!!

import math
#Hệ số 
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
#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)

Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin

Clrscr;
Write('Nhap a: ');readln(a);
Write('Nhap b: ');readln(b);
Write('Nhap 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<0 then
Writeln('Phuong trinh vo nghiem')
Else
Begin
x1:= (-b+sqrt(d))/(2*a);
x2:= (-b-sqrt(d))/(2*a);
Write('Phuong trinh co hai nghiem: ‘);
Writeln(‘ x1=',x1:4:2,' va x2=',x2:4:2);
End;
End;
Readln;
End.