Значения 2-ух массивов A[1..100] и B[1..100] задаются с помощью следующего

Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
A[n] := n - 10;
for n:=1 to 100 do
B[n] := A[n]*n;
Сколько элементов массива B будут иметь положительные значения?

1) 10
2) 50
3) 90
4) 100