Bilangan Genap

Menentukan bilangan ganjil atau genap dalam pemrograman bahasa pascal. Ini merupakan contohnya:

program bilangan_genap;
uses wincrt;

var
bil :integer;
ket :string;

begin
write ('masukan bilangan = ');readln(bil);
ket:='ganjil';
if bil mod 2 = 0 then
ket:='genap';
writeln (bil,' merupakan bilangan ',ket);
end.