Bilangan Genap Ganjil dengan FOR TO DO

script pengulangan menggunakan "for to do"

1.untuk menghasilkan angka ganjil scriptnya:

program bil_ganjil;
uses wincrt;
var a:integer;
begin
for a:=1 to 50 do
begin
writeln(a);
a:=a+1;
end;
end.

2.untuk menghasilkan angka genap scriptnya:

program bil_genap;
uses wincrt;
var a:integer;
begin
for a:=2 to 51 do
begin
writeln(a);
a:=a+1;
end;
end.

Catatan:
Perbedaan menampilkan bilangan ganjil dengan genap adalah terletak pada script "for a:=1 to 50 do" dan "for a:=2 to do 51 do".
Intinya jika pada ganjil diawali angka "ganjil" to "genap"
jika pada genap diawali angka "genap"to "ganjil".