Tugas Algoritma " Input Bilangan Ganjil atau Genap menggunakan Metode Pemilihan"

9. 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.