Program Giai_PT_bac_hai;
uses crt;
var a,b,c,delta:real;
{———————-}
Procedure delta_duong;
begin
write(‘Phuong trinh co hai nghiem x1=’,(-b+sqrt(delta))/(2*a),’x2=’,(-b+sqrt(delta))/(2*a));
end;
{———————}
Procedure delta_khong;
begin
write(‘Phuong trinh co nghiem kep x=’,-b/(2*a):3:1);
end;
{——————–}
Procedure delta_am;
begin
writeln(‘Phuong trinh vo nghiem’);
end;
{Chuong trinh chinh}
Begin
clrscr;
write(‘Nhap a: ‘);readln(a);
write(‘Nhap b: ‘);readln(b);
write(‘Nhap c: ‘);readln(c);
delta:=b*b-4*a*c;
if delta>0 then delta_duong
else if delta = 0 then delta_khong
else delta_am;
readln
end.