Menentukan Bilangan Yangdi di input Genap atau Ganjil Pada Alprog Pascal By : Fikom

Program Tugas4_1;
uses crt;
var
i : integer; {Mendeklarasikan Variabel [i] adalah integer}

begin

clrscr;
write('Input Sebuah Bilangan = ');readln(i);

begin
if (i Mod 2 = 0) then
write('Bilangan ',i,' Bilangan Genap')
else
write('Bilangan ',i,' Bilangan Ganjil');
readkey;
end;
end.