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

Var
   K,i:integer;
Begin
Write('K = ');
ReadLn(K);
i:=1;
Repeat
Write(2*i-1,' ');
i:=i+1;
Until i>K;
End.

Хотя гораздо проще было бы сделать так:

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