Program Pascal Menentukan Bilangan Genap dan Ganjil

 Program Pascal Menentukan Bilangan Genap dan Ganjil

{Suatu bilangan merupakan bilangan genap jika bilangan tersebut habis dibagi 2,sedangkan bilangan ganjil merupakan bilangan yang bersisa bila dibagi angka 2}

PROGRAM cek_bilangan_ganjil_genap;

     uses crt;

     var bil : integer;

begin

     clrscr;

     write('Masukkan suatu bil :');

     read(bil);

        if bil mod 2 = 0

           then

           begin

                 write('Bil tsb genap');

           end;

        if bil mod 2 <> 0

            then

            begin

                 write('Bil tsb ganjil');

            end;

        readln;

end.