menentukan bilangan ganjil/genap

sekarang saya akan posting bagaimana cara menentukan apakah suatu bilangan merupakan bilangan ganjil atau bilangan genap,saya menggunakan bahasa pascal sebagai bahasa programnya.
program dibawah menggunakan fungsi modulus(mod) dan if else maksudnya :
misalnya :
2 mod 2 = 0
3 mod 2 = 1
4 mod 2 = 0
angka tiga dibagi 2 sisa 0,dan angka 3 dibagi 2 sisa 1 dst....
maka angka 2 adalah bilangan genap dan angka tiga adalah bilangan ganjil karena angka 3 mod 2 masih sisa 1

silahkan lihat programnya dibawah :

program bilangan_ganjil_genap;
uses wincrt;
var
bilangan : integer;
begin
   write('masukkan sebuah bilangan');readln(bilangan);
   if (bilangan mod 2=0) then
   write('bilangan yang anda masukkan adalah bilangan genap');
else
   write('bilangan yang anda masukkan adalah bilangan ganjil');
end.