Создать массив из 12 целых чисел.Нечетные элементы увеличить на их номер.Положительные элементы уменьшить в три раза.

Var mas:array[1..12] of integer;   
      mas1:array[1..12] of real;
i:integer;
Begin   
for i:=1 to 12 do begin                         
    mas[i]:=random(5000);                         
  if (mas[i] mod 2 0) then mas[i]:=mas[i]+i;                         
mas1[i]:=mas[i];
    if (mas1[i] > 0) then mas1[i]:=mas1[i]/3;
writeln(mas1[i]);
end;             
end.