Program Pascal Menentukan Bilangan Genap atau Ganjil menggunakan If Serta Perulangan For Next

Berikut adalah salah satu contoh program pascal untuk Menentukan Bilangan Genap atau Ganjil menggunakan If Serta Perulangan For Next

1. Programnya

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

     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.

2. Tampilan Program dalam Pascal

3. Hasil Program