Cho trước 1 dãy số :`a_1,a_2,a_3....a_n.`

Hãy mô tả thuật toán để thực hiện một trong các công việc sau

a)Liệt kê tất cả các số chẵn của dãy số 

Input nhập n và dãi `a_n`

Output Xuất tất cả các số chẵn trong dãy

B1 nhập n

B2 `i←1;`

B3 nếu `i>n` thì kết thúc

B4 nhập `a_([i])`

B5 nếu `a_([i])` chia 2 dư không thì `a_([i])` là số chẵn và xuất `a_([i])`

B6 `i←i+1` và quay lại B3

b) Liệt kê tất cả các số lẽ của dãy số

Input nhập n và dãi `a_n`

Output Xuất tất cả các số lẽ trong dãy

B1 nhập n

B2 `i←1;`

B3 nếu `i>n` thì kết thúc

B4 nhập `a_([i])`

B5 nếu `a_([i])` chia 2 dư một thì `a_([i])` là số lẽ và xuất `a_([i])`

B6 `i←i+1` và quay lại B3

c) Liệt kê tất cả các số chia hết cho 9'

Input nhập n và dãi `a_n`

Output Xuất tất cả các số chia hết cho 9 trong dãy

B1 nhập n

B2 `i←1;`

B3 nếu `i>n` thì kết thúc

B4 nhập `a_([i])`

B5 nếu `a_([i])` chia 9 dư mộtkhông  thì `a_([i])` là số chia hết cho 9 và xuất `a_([i])`

B6 `i←i+1` và quay lại B3

b1: nhập dãy a1,a2,a3...an

b2: i:=i+1; if a[i] mod 2=0 then write(a[i]:4);    //nếu chia hết cho 2 thì in ra

b3: i:=0; if a[i] mod 2=1 then write(a[i]:4);    //nếu không chia hết cho 2 thì in ra

b4: i:=0; if a[i] mod 9=1 then write(a[i]:4);    //nếu chia hết cho 9 thì in ra

b5: kết thúc thuật toán