Ganjil Genap

program menentukanbil;

uses crt;


var
    a : integer;
begin
    clrscr ;
    writeln (' masukkan bilangan :');
    readln (a);
        if (a mod 2 = 0) then
            writeln ('genap')
        else
            writeln ('ganjil');
            readln ;
end.