Bilangan Ganjil dari 1 sampai 10

yah sudah ente ketahui,program yang ane maksud adalah program untuk pencarian bilangan ganjil dari 1 sampai 10 jadi kalo ente mau lebih dari itu yah harus ente rubah sendiri yah...wkakwakkwak

cekidot gan

program banyaknya_bilangan_ganjil_dari_1sampai10;
uses wincrt;
var
x,y:integer;
begin
y:=0;
x:=1;
repeat
if x mod 2 <> 0 then
begin
y:=y+1;
end;
x:=x+1;
until x>=10;
writeln(y);
end.