Viết chương trình để giải phương trình bậc 2.

program oken;

uses crt; 

var a,b,c,1x,2x,d:real;

begin

clrscr; 

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b); 

write('Nhap c: '); readln(c);

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

if d>0 then

begin

1x:=(-b+sqrt(d))/(2*a);

2x:=(-b-sqrt(d))/(2*a);

writeln('2 nghiem PT la: ',1x:0:2,' va: ',2x:0:2);

end;

else 

if d=0 then

begin 1x:=(-b)/(2*a);

writeln('PT co nghiem kep la: ',1x:0:2);

end;

else writeln('PT vo nghiem');

readln;

end.

Cho mình câu trả lời hay nhất nha

uses crt; var a,b,c,x1,x2,d:real;

BEGIN clrscr; write('Nhap a: ');

readln(a); write('Nhap b: ');

readln(b); write('Nhap c: ');

readln(c); d:=b*b-4*a*c;

if d>0 then begin

x1:=(-b+sqrt(d))/(2*a);

x2:=(-b-sqrt(d))/(2*a);

writeln('2 nghiem PT la: ',x1:0:2,' va: ',x2:0:2);

end else if d=0 then begin x1:=(-b)/(2*a);

writeln('PT co nghiem kep la: ',x1:0:2);

end else writeln('PT vo nghiem');

readln END.