Program Genap-Ganjil

Program ganjil_genap;
Uses Crt;
Var x: integer;
Begin

Write(‘Masukkan angka:’);
Readln(x);
If x mod 2 = 0 then
Write(‘Bilangan Genap’)
Else
Write(‘Bilangan Ganjil’);
End.