(pascal) данн массив из 8 целых чисел. умножить все отрицатильные числа на 6. вывести элементы массива .

For I:= 1 to 8 do
begin
If A[i]<0 then
A[i]:=A[i]*6;
End;
И потом выводишь массив на экран.