Задан одномерный массив из 10 элементов. увеличить положительные числа в 3 раза, уменьшить отрицательные в 2 раза.в turbo pascal

For i:= 1 to n do if a[i] > 0 then a[i] * 3
                                     else a[i] / 2