Program Pascal Menentukan Bilangan Genap atau Ganjil

Berikut adalah salah satu program pascal untuk menentukan bilangan genap atau ganjil

1. Programnya

Program GanjilGenap;

uses crt;

var

   Bil : integer;

   Ket : string;

begin

     clrscr;

     Writeln('Program Ganjil Genap');

     Write('Input Bilangan : ');readln(Bil);

     if Bil mod 2 = 0 then

        Ket :='Genap'

     else

         Ket :='Ganjil';

     Write('Keterangan     :',Ket);

     readln;

end.

2. Tampilan Program dalam Pascal

3. Hasil Program bila bilangan genap

4. Hasil Program bila bilangan ganjil