Создать массив из 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.