Дан одномерный массив натуральных чисел.Определить количество элементов массива,сумма цифр которых больше 7.Все вспомогательные алгоритмы оформить в отдельный модуль.

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016 // Внимание! Если программа не работает, обновите версию! function S(n:integer):integer:=(n<10?n:(n mod 10)+S((n div 10) mod 10)); begin   var a:=ArrRandom(ReadInteger('n='),1,50); a.Println;   Writeln('k=',a.Select(x->S(x)).Where(x->x>7).Count) end. Пример: n= 15 29 33 40 49 20 12 43 50 22 40 36 33 35 43 49 k=5