var
a:integer;
begin
Writeln('K5 Operator Mod');
Writeln;
write('Masukkan angka');Readln(a);

Writeln('=====CETAK=====');
if a mod 2 = 1 then
begin
writeln('Bilangan Ganjil ',a,' Angkanya.');
end
else
Begin
writeln('Bilangan genap ',a,' Angkanya.');
end;

Readln;
end.