--------------------------------------------------------------------------------

Giải phương trình bậc 2 với hệ số a bất kỳ.

Var a,b,c,x1,x2,denta:real;

BEGIN

Writeln('Chao mung ban den voi vietprogammer!');

writeln('Nhap a,b,c');

readln(a,b,c);

if (a<>0) then

Begin

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

if (denta>0) then

Begin

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

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

writeln('x1=',x1);

writeln('x2=',x2);

End;

if (denta=0) then

writeln('Phuong trinh co 1 nghiem duy nhat x=',-b/(2*a));

if (denta<0) then

writeln('Phuong trinh vo nghiem!');

End

Else

writeln('He so a phai khac 0');

Readln;

END.