תודה מראש.
for i:= 1 to 100 do if (i mod 2)<>0 then writeln (i);
או
for i:= 1 to 100 do if (i mod 2)=1 then writeln (i);
מקווה שעזרתי