program bilangan ganjil genap

Program ganjil_genap;

Var X, sisa : integer ;

Ket : string;

Begin

Write(‘masukkan semua bilangan : ‘);

readln(x);

Sisa := x mod 2;

If sisa = 0 then ket :=’genap’ else ket :=’ganjil’;

Write(‘jadi jenis bilangan adalah : ‘);

writeln(ket);

readln;

end.