Найти сумму всех элементов массива кратных трем - PascalABC.NET

Формулировка задачи:

Дан одномерный массив состоящий из 25 элементов целого числа.Найти сумму всех элементов кратным трем(с блок-схеймо)

Решение задачи: «Найти сумму всех элементов массива кратных трем»

Листинг программы

uses Arrays; 
begin
  randomize;
  var A := CreateRandomIntegerArray(25, -100, 100);
  PrintLn(A.Where(x -> x mod 3 = 0));
  Print('A = ', A, NewLine + 'Сумма элементов, кратных 3 = ', A.Where(x -> x mod 3 = 0).Sum());
end.

Объяснение кода листинга программы

Используется пространство имен Arrays.
Задается случайное начальное значение для генератора случайных чисел с помощью randomize.
Создается массив целых чисел A размером 25 с помощью CreateRandomIntegerArray(25, -100, 100).
Выводится на экран список элементов массива A, которые кратны трём, с помощью PrintLn(A.Where(x -> x mod 3 = 0)).
Выводится на экран сумма элементов массива A, которые кратны трём, с помощью Print('A = ', A, NewLine + 'Сумма элементов, кратных 3 = ', A.Where(x -> x mod 3 = 0).Sum()).