viết chương trình nếu đen ta bé hơn ko là vô n; đen ta bằng ko có 2 n kép tìm 2 n kép đen ta lớn hơn ko có 2 n phân biệt tìm 2 n pb bằng c

Program giai_phuong_trinh_bac_2;
Uses crt;
Var a,b,c,x1,x2,x,DT:Real;
BEGIN
CLRSCR;
Write('a= '); Readln(a);
Write('b= '); Readln(b);
Write('c= '); Readln(c);
DT:=b*b - 4*a*c;
If DT>0 then
Begin
Writeln('Phuong trinh co 2 nghiem phan biet la');
x1:= (-b+SQRT(DT))/(2*a);
x2:= (-b-SQRT(DT))/(2*a);
Writeln('x1= ', x1:8:2);
Writeln('x2= ', x2:8:2);
End
Else
If DT=0 Then
Begin
Writeln('Phương trinh co 1 nghiem kep la');
x:=(-b/(2*a));
Writeln('x= ', x:8:2);
End
Else
Writeln(' Phương trinh vo nghiem');

Readln;
END.

var a, b, c, d : real;

begin

readln(a, b, c);

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

if d = 0 then write('x = ', (-b) / (2 * a));

if d < 0 then write(' Phương trinh vo nghiem');

if d > 0 then write('x1 =', ((- b + sqrt(dt))/(2 * a)), 'x2 =', ((- b - sqrt(dt))/(2 * a)));

readln;

end.