Pascal ABC В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((

Question

Pascal ABC
В диапазоне от 1 до К вывести все нечётные числа Помогите пожалуйста ((

Answer 1

//PascalABC.Net 3.2
begin
for var i:=1 to readinteger ('Введите K: ') do if (i mod 2)=1 then print (i);
end.

Comments

Спасибо