viết phương trình nhập vào giá trị của 3 hệ số a b c của phương trình bậc hai sau đó suất ra kết quả của phương trình bậc hai với các số a b c có nghiệm hay vô nghiệm.giải giúp em với mọi người ơi

bn xem đc ko

Program GIAI_PHUONG_TRINH_BAC_HAI;
Uses crt;
Var a,b,c,d,x,x1,x2:real;
Begin
Writeln('GIAI PHUONG TRINH BAC II:');
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<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.

uses crt;

var a, b, c, dt : real;

begin

clrscr;

write('nhap he so a, b, c :'); readln(a, b, c);

dt := b * b - 4 * a * c;

if a <> 0 then

begin

if dt >0 then

begin

writeln('nghiem x1 =', ((- b + sqrt(dt))/(2 * a)):2:2);

writeln('nghiem x2 =', ((- b - sqrt(dt))/(2 * a)):2:2);

end

else

if dt = 0 then writeln('x = ', (-b / (2 * a)):2:2)

else writeln('Phương trinh vo nghiem');

end;

readln;

end.