Требуется написать программу уменьшения в два раза значение всех элементов массива, имеющих нечетные индексы

Program v1;

Var i, n: integer;

mas: array[1 ... 100] of real;

mas1: array[1 ... 100] of real; Begin

Write ('Сколько элементов вы хотите:') ;

Readln (n) ;

For i : = 1 to n do

Begin

mas[i] : = Random (30) ;

Write (mas[i],' ') ;

End;

Writeln;

For i : = 1 to n do

if (i mod 2 = 1) then

Begin mas1[i] : = mas[i]/2;

Write (mas1[i],' ') ;

End;

End.