Contoh Program Pascal Ganjil menggunakan FOR DO

Program for_ganjil

uses crt;

var z : integer;

begin 

clrscr;

write('Output Bilangan Ganjil : ');

x:=1;

        for x:=1 to 30 do

        if(x mod 2)=1 then

        write(x,' ');

        x:=x+1;

readln;

end.

Semoga bermanfaat. :)