Question

Значение массива A размеров 5 задаются с помощью цикла в данном фрагменте программы:
for I:=1 to 5 do
begin
if ((I mod 3) = 1) or ((I mod 2) = 0) then A[I]:= I * (5 - I)
else A[I]:= I * (4 - I)
end;
Сколько элементов массива будут иметь отрицательные значения?