* Mô tả thuật toán :

- Bước 1 : nhập số nguyên a

- Bước 2 :

- Bước 2.1 : nếu a mod 2 = 0 thì thông báo a là số chẵn

- Bước 2.2 : ngược lại thông báo a là số lẻ

- Bước 3 : kết thúc

* Viết chương trình :

uses crt;

var a : integer;

begin

clrscr;

write('nhap so :');readln(n);

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

else writeln(a,' la so le');

readln

end.

program ctlhn;

uses crt;

var a :integer

begin

          clrscr;

          write('nhap vao so nguyen a'); read(a);

          if a mod 2 =0 then write(a,'la so chan') else write( a,'la so le');

          readln

end.

(mik chỉ biết viết chương trình)