Есептің формуласы жоқ па? Анауың жәй шарт сияқты ғой, қадам. Кейін, өсу реті барысында оның шегі болуы керек, 1-ден ... ))) Прикол))
program taq_s;
var a, i:integer;
begin
writeln('Taq sandardin songi manin jaziniz: ');
read(a);
for i:=1 to a do
if odd(i) then writeln(i);
readln;
end.