Размер массива и сам массив вводится с клавиатуры. Найдите сумму элементов, удволетворяющих условию: остаток от деления на 3 равен 2.

Var

mass : array of integer;

len, tempNumber, summ, i : integer;

begin

write ('Введите длину массива: ');

readln (len);

SetLength (mass, len);

for i : = 0 to len - 1 do

begin

write ('mass[', i, '] = ');

readln (mass[i]);

end;

summ : = 0;

for i : = 0 to len - 1 do

if mass[i] mod 3 = 2 then

summ : = summ + mass[i];

writeln ('Сумма: ', summ);

end.