Program pascal ganjil atau genap

Program ganjil_genap;

Uses wincrt;

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);

End.