Câu 1 :
- Cấu trúc dạng thiếu : if <điều kiện> then <câu lệnh>;
- Vd : if a = 3 then a := 5;
- Cấu trúc dạng đủ : if <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;
- Vd : if a = 2 then a := a + 1 else a := a - 1;
Câu 2 :
uses crt;
var a : integer;
begin
clrscr;
write('Nhap so nguyen a : '); readln(a);
if a mod 3 <> 0 then write('a khong chia het cho 3')
else write('a chia het cho 3');
readln
end.
