Contoh program Genap Pascal FOR DO

Program for_genap

uses crt;

var z : integer;

begin 

clrscr;

write('Output Bilangan Ganjil : ');

x:=1;

        for x:=1 to 30 do

        if(x mod 2)=0 then

        write(x,' ');

        x:=x+1;

readln;

end.

Semoga bermanfaat :v