Program Ganjil Genap (Perulangan)

uses crt;                 
var i : integer;           {deklarasi dari variable}
begin                        {start of program}
clrscr;

writeln('Program Ganjil Genap dengan Perulangan');
writeln;

for i := 1 to 10 do      {perulangan hingga 10x}

if (i mod 2 = 0) then  {kondisi i dibagi 2 sama dengan 0}

writeln(i,' = genap')   {kondisi di mana statement benar}

else

writeln(i,' = ganjil');   {kondisi di mana statement salah}
readln;
end.                         {end of program}