Program Menentukan Bilangan Genap atau Ganjil (Bahasa Pascal)

program Menentukan_Bilangan_Ganjil_atau_Genap;
{I.S. : diberikan harga ke dalam suatu nilai}
{F.S. : menampilkan nilai tersebut bilangan ganjil atau genap}
var
   nilai: integer;

begin
   write('Nilai = ');readln(nilai);
   if (nilai mod 2 = 0) then
        writeln('Bilangan Genap')

    


else
        writeln('Bilangan Ganjil');

  

readln;
   readln;
end.