Вмассиве g(10) элементы,стоящие на нечетных позициях устроить,а на четных заменить их порядковым номером.ввод элемента массивом осуществить списком.алгоритм на паскаль

program pr;

var g:array[1..10] of integer;

i,vvod:integer;

begin

writeln('Исходный массив:');

for i:=1 to 10 do

begin

readln(vvod);

if (i mod 2)=1 then

 g[i]:=(vvod*3)

 else

 g[i]:=i;

end;

writeln('Получившийся массив:');

for i:=1 to 10 do writeln(g[i]);

end.