Memisahkan Bilangan Integer Menjadi Bilangan Ganjil dan Genap dengan Pascal

{

Program ini merupakan program untuk memisahkan mana ganjil dan mana genap
Caranya dengan menggunakan operator mod (sisa hasil bagi).
Artinya jika hasilbaginya= 1 berarti itu bilangan ganjil, kalau bukan berarti genap :)
}
program ganjil;

uses wincrt;

var
bilangan, i, hasil, tmpbilangan : integer;

begin
  write('Masukan angka/bilangan sembarang: ');readln(bilangan);

  for i:=1 to bilangan  do

    begin
   
      hasil:= i mod 2;
      if (hasil=1) then
          begin
          writeln(i, ' Adalah Bilangan Ganjil');

          end  
      else
          begin
          writeln(i, ' Adalah Bilangan Genap ');
          end

    end
end.