MENENTUKAN BILANGAN GENAP ATAU GANJIL MENGGUNAKAN IF DAN PERULANGAN FOR NEXT

Program GanjilGenap;
uses crt;
var
  N,i: integer;
begin
  clrscr;
  writeln('Program Ganjil agenap');

  for N := 1 to 10 do
  begin
     write(N;.Input Bil ='); readln(i);

     if i mod 2 = 0 then
         writeln(' Keterangan = Genap');
     else
         writeln(' Keterangan = Ganjil');
    end;
    readln;
end.