program giai_phuong_trinh_bac_2;
var
a, b, c, delta, x1, x2: real;
begin
// Nhập giá trị của a, b và c từ bàn phím
writeln('Nhap a: ');
readln(a);
writeln('Nhap b: ');
readln(b);
writeln('Nhap c: ');
readln(c);
// Tính delta
delta := b*b - 4*a*c;
// Kiểm tra giá trị của delta
if delta < 0 then
writeln('Phuong trinh vo nghiem')
else if delta = 0 then
begin
x1 := -b / (2*a);
writeln('Phuong trinh co nghiem kep x = ', x1:0:2);
end
else
begin
x1 := (-b + sqrt(delta)) / (2*a);
x2 := (-b - sqrt(delta)) / (2*a);
writeln('Phuong trinh co hai nghiem phan biet');
writeln('x1 = ', x1:0:2);
writeln('x2 = ', x2:0:2);
end;
readln;
end.