@Meoss_
* Viết chương trình kiểm tra tính chẵn lẻ của số nguyên N từ bàn phím:
Program Kiemtra_chanle;
Uses crt;
var N:integer;
begin
clrscr;
Write('Nhap so nguyen N');Readln(N);
If ( N mod 2=0) then write(N,'la so chan') else write(N,'la so le');
Readln;
End.