CLS
DIM a AS INTEGER
COLOR 11
PRINT "PENENTUAN BILANGAN GENAP DAN GANJIL"
PRINT "+++++++++++++++++++++++++++++++++++"
COLOR 3
INPUT "Masukkan Bilangan :", a
COLOR 5
PRINT "Bilangan", a
COLOR 6
IF a MOD 2 = 2 THEN PRINT "Adalah Bilangan Genap" ELSE PRINT "Adalah Bilangan Ganjil"
END