penggunaan MOD

Uses crt;

Var a:integer;

Begin

Clrscr;

Writeln(‘input nilai:’);

Readln(a);

If(a mod 2 = 0) then

Writeln (a,’adalah bilangan genap’)

Else

Writeln (a,’adalah bilangan ganjil’);

Readln;

End.