program pascal menentukan ganjil genap

program menghitug_bilangan_ganjil_dan_geanap;
uses crt;
var
nilai:longint;
begin
    writeln('1.menghitung bilangan genap dan ganjil');
   write('Nilai = ');readln(nilai);
   if (nilai mod 2 = 0) then
   writeln('Bilangan Genap')
else
writeln('Bilangan Ganjil')  ;
readln;
end.