If <Điều kiện> Then 
    <Công việc 1> 
Else 
    <Công việc 2>; 
* Trong đó: 
IF, THEN, ELSE là từ khóa.
Điều kiện: Là biểu thức logic hoặc biểu thức quan hệ.

• Bước 1: Tính giá trị của biểu thức điều kiện.
• Bước 2: Kiểm tra giá trị của biểu thức điều kiện
  • Nếu biểu thức điều kiện có giá trị đúng thì thực hiện câu lệnh sau từ khoá THEN, rồi thoát ra khỏi câu lệnh IF, chuyển đến thực hiện lệnh tiếp theo.
  • Nếu biểu thức điều kiện có giá trị sai thì thực hiện câu lệnh 2 sau từ khóa ELSE, rồi thoát ra khỏi câu lệnh IF, chuyển đến thực hiện lệnh tiếp theo.

Program gptb2;
Uses crt;
Var 	a,b,c:real;
	D,X1,X2:real;
Begin
	Clrscr;
	Write(‘a,b,c:’);
Readln(a,b,c);
D:=b*b-4*a*c;
If D<0 then writeln(‘Phuong trinh vo nghiem ’)
Else
	Begin
		X1:=(-b-sqrt(D))/(2*a);
		X2:=-b/a-X1;
Writeln(‘X1=’,X1:8:3,’ X2=’,X2:8:3);
	End;
Readln;
End.

	If d<=0 writeln(‘day la so duong’);
	If a mod 3=0 then writeln(‘a chia het cho 3’)
Else writeln(‘a khong chia het cho 3’);