На языке pascal abc реализовать программу, выводящую первых к нечётных чисел 1,3,5,. (к задаётся с клавиатуры).

Var
   k:integer;
Begin
Write('k = ');ReadLn(k);
For k:= 1 to k do
    Write(k*2-1,' ')
End.