Contoh Program pascal ganjil

Program repeat_ganjil;
uses crt;
var z : integer;

begin
clrscr;

write('output bilangan Genap : ');

z:=1
repeat
         if(x mod 2)=1 then
         write(z,' ');
         z:=z+1;
until z=30;

readln;
end.