program
Menentukan_Bilangan_Genap_atau_Ganjil;
uses crt;
var angka : integer;
begin
clrscr;
writeln('MENENTUKAN BILANGAN GENAP
ATAU GANJIL');
writeln;
write('Masukkan angka: '); readln(angka);
writeln;
if (angka mod 2 = 0) then
writeln(angka,' adalah Bilangan
Genap')
else writeln(angka,' adalah Bilangan
Ganjil');
readln;
