tuliskan program jenis bilangan genap dan ganjil dalam program pascal??

PROGRAM JENIS_BILANGAN;{annur24.wordpress.com}
USES crt;
Var bil: integer;
Begin
writeln('MENENTUKAN JENIS BILANGAN');
writeln('**************************');
write('Masukkan angka: ');readln(bil);
if bil mod 2 = 0 then
writeln('Bilangan genap')
else
writeln('Bilangan ganjil');
readKey;
End.