ganjil_gnap

program ganjil_genap;
uses
    wincrt;

var
nilai : integer;

 begin
    gotoxy(12,3);writeln('PROGRAM PENCETAKAN BILANGAN');
    gotoxy(11,4);writeln('=============================');
    write('Masukkan nilai : ');readln(nilai);
    writeln;
    if (nilai Mod 2) = 0 then
    writeln ('Nilai ',nilai,' ','adalah Genap')
    else
    writeln('Nilai ',nilai,' ','adalah Ganjil');

 end.