Menampilkan Bilangan Ganjil

program Pengulangan;
uses wincrt;
var i : integer;
begin
clrscr;
for i := 1 to 50 do
if(1 mod 2 = 1) then
write (1,' ');
readln;
end.