Составить программу которая все отрицательные элементы массива удваивает а положительные утраивает.
Пожалуйста...

//PascalABC.Net 3.2beginvar a: array of integer;setlength(a, readinteger('Введите размерность массива: ')); for var i:=0 to length(a)-1 dobegina[i]:=readinteger('Введите элемент: ');if a[i]<0 then a[i]*=2 else a[i]*=3;end;write (a);end.