Viết chương trình kiểm tra tính chẵn lẻ của một số nguyên a?

program chanle;

uses crt;

var n;

begin    

clrscr;     

write('Nhap n: ');     

readln(n);     

if n mod 2 = 0 then write('n la so chan')

else ('n la so le');     

readln;

end.