Program untuk menentukan jenis bilangan genap atau ganjil.

Program menentukan_jenis_bilangan_genap_atau_ganjil ;
uses winCrt;

var
x, sisa : integer;
ket : string;

Begin

Write ('Masukan Bilangan yang ingin ditentukan jenisnya : '); Readln (x);

sisa := x mod 2;

if sisa = 0 then ket := 'Genap' else ket := 'Ganjil';

write ('Jadi jenis bilangan ini adalah :'); write (ket);

end.