Viết chương trình Pascal xác định mộ số là số chẳn hay số lẻ

Đề: Viết chương trình Pascal, yêu cầu người dùng nhập một số nguyên từ bàn phím. Thông báo ra màn hình số vừa nhập là số chẳn hay số lẻ.

Chương trình:
Program Xac_Dinh_Chan_Le;
   uses crt;
   var a:integer;
begin
   clrscr;
   Writeln('Hay nhap so nguyen a= ');
   readln(a);
   If a mod 2=0 Then Writeln('a la so chan') Else Writeln('a la so le');
   readln;
end.