var n,i:integer;
begin
writeln('Vvedite N: ');
readln(n);
for i:=100 to 100+n*2 do
if (i mod 2=1) then write(i,' ');
readln;
end.
Объяснение:ну как бы это в Pascal ABC.
