Viết chương trình bậc nhất 1 ẩn ax+ b =c

program ct;
uses crt;
var a,b,c,x: real;
begin
    clrscr;
    writeln('Cho ax+b = c; Nhap lan luot a, b, c: '); readln(a,b,c);
    if (a=0) and (b=0) and (c=0) then 
        writeln('x co vo so nghiem')
    else
        begin
        x:=(c-b)/a;
        writeln('x = ',x:5:3)
        end;
    readln;
end.

____________________________

#Duahauvn

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)