Размер массива и сам массив вводится с клавиатуры. Найдите сумму элементов, удволетворяющих условию: остаток от деления на 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.