PROGRAM MENCARI ANGKA GANJIL/GENAP PADA QBASIC

Assalaamu'alaikum semua, ada postingan baru nih tentang PROGRAM MENCARI ANGKA GANJIL/GENAP PADA QBASIC, saya tau mungkin program ini terlalu mudah. Tapi sebagai orang yang pernah jadi pemula, untuk mencari program seperti ini hampir sangat langka. Selamat menikmati.

Script :
DIM a AS INTEGER
CLS
INPUT "Masukkan bilangan = ", a
IF a MOD 2 = 0 THEN
PRINT "Angkanya Genap"
ELSE
PRINT "Angkanya Ganjil"
END IF
END

Penjelasan :
1. Deklarasikan variabel a sebagai tipe data integer/angka bulat
2. Bersihkan layar
3. Masukkan bilangan di variabel a
4. Seleksi kondisi, Jika hasil bagi a dan 2 = 0, maka angka/bilangannya adalah genap
5. Tetapi jika tidak, maka bilangan/angkanya ganjil
6. selesai

output :