Đây là phần khai báo biến:

Program giai_pt_bac_2;
Uses crt;
Var a,b,c,d,x,x1,x2:real; 

Đây là full code:

Program giai_pt_bac_2;
Uses crt;
Var a,b,c,d,x,x1,x2:real; 
Begin
Writeln('GIAI PHUONG TRINH BAC 2:');
Writeln('====================);
Write('Nhap a: '); Readln(a);
Write('Nhap b: '); Readln(b);
Write('Nhap c: '); Readln(c);
If a=0 then
   If b=0 then
       If c=0 then
         Writeln('Phuong trinh co vo so nghiem')
       Else
         Writeln('Phuong trinh vo nghiem')
   Else
      Writeln('Phuong trinh co mot nghiem: x=',-c/b:4:2)
Else
Begin
 d:=b*b-4*a*c;
  If d=0 then
    Writeln('Phuong trinh co nghiem kep: x=',-b/(2*a):4:2)
  Else
    If d<0 then
       Writeln('Phuong trinh vo nghiem')
    Else
      Begin
         x1:= (-b+sqrt(d))/(2*a);
         x2:= (-b-sqrt(d))/(2*a);
       Write('Phuong trinh co hai nghiem: ‘);
       Writeln(‘ x1=',x1:4:2,' ; x2=',x2:4:2);
      End;
End;
Readln;
End.

- Biến sử dụng : 

+ a, b, c : hệ số phương trình 

+ d : delta

+ x1, x2 : nghiệm phương trình khi delta > 0

+ x : nghiệm phương trình khi delta = 0

=> Khai báo :

Var a, b, c, x1, x2, x, d : real;