Ответ:
--- 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.
Объяснение: