Câu 1.

If x mod 2 then writeln(x,' la so chan');

{Nếu x chia 2 dư 0 thì thông báo x là số chẵn}

Câu 2.

If x>0 then writeln(x,' la so duong') else writeln(x,' la so am);

{Nếu x>0 thì thông báo x là số dương ngược lại thông báo x là số âm}

Câu 3.

Cú pháp: If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

Sơ đồ hình khối: hình ảnh

Câu 4.

a. 

- `x = 1 > 0` => Giá trị của x là 1

b.

- x = 4 `\vdots` 2

- `x = 4 > 1`

=> Giá trị của x là `x + 1 = 4 + 1 = 5`

c.

- Không xác định được giá trị của x (Vì ban đầu không cho x bằng mấy)

d.

- x = 2 `\vdots` 2 

=> Giá trị của x là: `x + 2 = 2 + 2 = 4`

1/

 if a=b then a=c;

2/

if a mod 2=0 then write ('a la so chan')

else write ('a la so le');

3/

cú pháp:  if <điều kiện> then <công việc 1>

                else  <công việc 2>

sơ đồ:                              SAI

                  điều kiện   ---------> Công việc 2

                       |  

                       |    ĐÚNG

               Công việc 1    

4 a/  x=2

   b/  x=5

   c/   x=0

   d/   x=3

~~~~~Cao thủ turbo Pascal~~~~~

     chúc may mắn !!!!!!