viết chương trình tính nhập vào 1 số , kiểm tra xem số đó chẵn hay lẻ

Program Chan_le;

uses crt;

var a: integer;

begin

clrscr;

write(‘nhap vao so a =’); readln(a);

if ( a mod 2 = 0 ) then write(‘ a la so chan ‘)

else

write(‘a la so le ‘);

readln;

end.