Nama Program
Identifikasi Angka Genap atau Ganjil

Bahasa
Pacal

uses wincrt;

Var angka:integer;

begin
clrscr;
REPEAT
Write('ketik suatu angka[0=keluar]:');Readln(angka);
If angka = 0 then exit;
writeln;

if odd(angka) then
writeln('angka',angka,'adalah angka GANJIL')
else;
writeln('angka',angka,'adalah angka GENAP');
writeln;
Until false;
End.