Ответ:

--- PascalABC.NET 3.6.2 ---

//С циклом 'For'

begin

 var temp := 1;

 var len := readinteger();

 for var i := 1 to len do begin

   temp.Print;

   temp+=2;

 end;

end.

//Так же, если вы используете именно PascalABC.NET, вы можете использовать метод SeqGen(n, first: T, next: T -> T), возвращающий последовательность (в вашем случае, целых чисел), образованную по заданным параметрам.

begin

 SeqGen(readinteger(), 1, p -> p + 2).Println;

end.

Объяснение: