Напишите программу заполнения массива А[1:5] честными числами 1,3,5,7,9

Const   K = 5;Var   A:array[1..K] of integer;   i:integer;BeginWrite('Массив нечётных чисел: ');For i:= 1 to K do    Begin    A[i]:=i*2-1;    Write(A[i],' ')    EndEnd.