input:nhập a từ bàn phím
output:kiểm tra số a là số lẻ hay số chẵn
thuật toán
b1:nhập một số tự nhiên a
b2:nếu a chia hết cho 2 thì a là số chẵn,ngược lại quay lại b1
b3:kết thúc thuật toán
chương trình
program so;
uses crt;
var a:integer;
begin
clrscr;
write('nhap so a:');readln(a);
if a mod 2 = 0 then writeln('a la so chan');
readln;
end.