{Bài 4: Viết chưong trình nhập 1 số tự nhiên vào máy tính và ghi ra màn hình kết quả số đã nhập là 1 số chẳn hay lẽ.}
program chan_le;
uses crt;
var a: integer;
BEGIN
clrscr;
writeln('Kiem tra so chan so le');
write('Nhap vao so nguyen duong: '); readln(a);
if (a mod 2=0) then writeln(a, ' la so chan')
else writeln(a,' la so le');
READLN;
END.