Input Bilangan Ganjil atau Genap

Program ini digunakan untuk menentukan apakah bilangan yang diinput termasuk bilangan ganjil atau bilangan genap. Metode yang digunakan adalah metode pemilihan.

      uses crt;
      var
      bilangan : integer;
      begin
           clrscr;
           write('Masukan sebuah bilangan='); Readln(bilangan);
           if (bilangan mod 2)= 0 then
                writeln('Bilangan yang Anda input adalah bilangan genap')
           else
                writeln('Bilangan yang Anda input adalah bilangan ganjil');
           Readln;
      End.