Program Menampilkan deretan Bilangan Ganjil dan Genap

Program tersebut adalah Program untuk Menampilkan deretan bilangan ganjil dan genap yang dimulai dari 1 s/d 5, tapi jika anda tidak ingin menampilkan deretan bilangan ganjil dan genap yang tidak dimulai dari 1 atau sampai dengan lima anda tinggal mengubah nilai yang ada pada perulangan For nya..

Listing Programnya : 

rogram Menampilkan_bil_ganjil_genap;
uses crt;
var i : integer;
begin
clrscr;
write('Bilangan ganjil : ');
for i:=1 to 5 do begin
 if i mod 2 = 1 then
  write(i,',');
end;
writeln;
write('Bilangan Genap : ');
for i:=1 to 5 do begin
 if i mod 2 = 0 then
  write(i,', ');
end;
readln;
end.