Program untuk Menentukan Apakah Suatu Bilangan Genap atau Ganjil

var
x : integer;
sisa : byte;
begin
write(‘Masukkan sebuah bilangan bulat : ‘);readln(x);
sisa:=x mod 2;
if sisa=0 then writeln(x,’ adalah bilangan genap’)
             else writeln(x,’ adalah bilangan ganjil’);
readln;
end