Вычислите сумму всех элементов натурального ряда в диапазоне от 10 до 30, кратных 3 если буду сердечно !

Массив А[n], где n>30;
целая переменная i и summ;

Цикл For i:=10 to 30 do
summ:=summ+A[i]

Вывод summ