Program Pascal Menentukan Bilangan Genap dan Bilangan Ganjil

program bilangan_genap_ganjil;
 uses crt;
var
   hasil:byte;
   bil: integer;
begin
     clrscr;
     writeln('Menentukan Bilangan Genap dan Ganjil');
     writeln('created By : Denni M Rajagukguk');
     writeln('====================================');
     write('input bilangan: ');readln(bil);
     if bil <= 0 then
        begin
        writeln ('bilA sama dengan bilB');
        end
     else

Untuk Modul lengkapnya silahkan download disini