Задать массив m (7) случайными числами от 12 до 73. Утроить элементы массива, стоящие на нечетных местах. Утроить чётные элементы массива, стоящие на нечетных местах

ну допустим элементы (36, 50, 41, 70, 31, 26, 38) преобразуем и выводим (180, 50, 245, 70, 155, 26, 190)

Var

m: array [1 ... 7] of integer;

i: byte;

begin

randomize;

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

for i : = 1 to 7 do

begin

m[i] : = random (61) + 12;

write (m[i],' ') ;

end;

writeln; writeln;

writeln ('Утроили стоящие на нечетных местах.') ;

for i : = 1 to 7 do

begin

if i mod 2 0 then m[i] : = m[i]*3;

write (m[i],' ') ;

end;

writeln; writeln;

writeln ('Утроили четные на нечетных местах.') ;

for i : = 1 to 7 do

begin

if ((i mod 2 0) and (m[i] mod 2 = 0)) then m[i] : = m[i]*3;

write (m[i],' ') ;

end;

end.