Дан одномерный массив n целых чисел. заменить в данной последовательности чётные элементы на их удвоение.

Const n = 10;
Var m : array[1..n] of Integer;
  i : Integer;
Begin
  Randomize;
  For i:=1 to n do
  Begin
   m[i]:=Random(50);
   Write(m[i]:3);
  end;
  Writeln;
  For i:=1 to n do
  Begin
   If not Odd(m[i]) then m[i]:=m[i]*2;
   Write(m[i]:3);
  end;
  Writeln;
end.