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

var  m: array [1..7] of integer;  i: byte;beginrandomize;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.