Program TienPhucKhaiVJ;
Uses CRT; {Su dung thu vien CRT}
Var a,b,c,D,x,x1,x2: real;
Begin
Clrscr; {xoa man hình, neu khong USES CRT thi lenh nay se bi bao loi}
Writeln('GIAI PHUONG TRINH BAC II: ');
Writeln('-------------------------------------------');
{ Write('Nhap he so a=');
readln(a);
Write('Nhap he so b=');
readln(b);
Write('Nhap he so c=');
readln(c); }
a:=3;
b:=2;
c:=-5;
If ((a=0) and (b=0) and (c=0)) then
Writeln('Phuong trinh co vo so nghiem') {a=0, b=0, c=0 }
Else if ((a=0) and (b=0) and (c<>0)) then
Writeln('Phuong trinh vo nghiem') {a=0, b=0, c<>0}
Else if ((a=0) and (b<>0)) then
Writeln('Phuong trinh co mot nghiem: x=',-c/b: 4: 2) {a=0, b<>0}
Else if (a<>0) {a <> 0} then
Begin
D:=b*b-4*a*c;
If D=0 then Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a): 4: 2) {Delta =0}
Else
If D<0 then Writeln('Phuong trinh vo nghiem') {Delta <0}
Else {Delta >0}
Begin
x1:=(-b-sqrt(D))/(2*a);
x2:=(-b+sqrt(D))/(2*a);
Writeln('Phuong trinh co 2 nghiem la x1= ',x1:4:2 ,' va x2= ',x2:4:2);
End;
End;
Readln
End.