Program PTB2;
Uses crt;
Var a,b,c:Real;
    Delta,x,x1,x2:Real;
Begin
    Clrscr;
    Write('a = '); Readln(a);
    Write('b = '); Readln(b);
    Write('c = '); Readln(c);
    Delta:=sqr(b)-4*a*c;
    If Delta < 0 Then Writeln('Phuong trinh vo nghiem')
    Else If Delta=0 Then
         Begin
             X:=-b/2*a;
             Writeln('Phuong trinh co nghiệm kép X1=X2= ',X:6:2);
         End
    Else
         Begin
             X1:=-b-Sqrt(Delta)/2*a;
             X2:=-b+Sqrt(Delta)/2*a;
             writeln('Phuong trinh co 2 nghiem:');
             Writeln('Nghiem thu nhat = ',X1:6:2);
             Writeln('Nghiem thu hai  = ',X2:6:2);
         End;
    Readln;
End.

Phương trình bậc 2 có dạng ax² + bx + c = 0 (a≠0). 

Trong đó: 

• x là ẩn số chưa biết. 
• a, b, c là các số đã biết (a khác 0). Chúng ta có thể gọi a là hệ số bậc hai, b là hệ số bậc một, và c là hằng số (hay còn có thể gọi số hạng tự do).

Cách giải phương trình bậc 2 như sau:

• Nếu a != 0 thì tính delta = b² – 4ac
• Nếu delta < 0 thì phương trình vô nghiệm
• Nếu delta = 0 thì phương trình có nghiệm kép: x₁ = x₂ = -b/2a
• Nếu delta > 0 thì sẽ có 2 nghiệm phân biệt: x₁ = (-b + delta)/2a, x₂ = (-b -delta)/2a;
• Nếu a == 0 thì phương trình trở thành phương trình bậc 1