дан массив одномерный(30 элементов), вычислить сумму элементов, найти максимальное, вывести те элементы, которые делятся на 13
Pascal
заранее огромное спасибо

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016begin  var a:=ArrRandom(30,1,100); a.Println;  Writeln('S=',a.Sum,', max=',a.Max);  Write('Кратные 13: '); a.Where(n->n mod 13=0).Printlnend.Тестовое решение:91 45 76 84 16 23 33 56 70 99 9 56 18 75 48 49 22 90 27 52 94 85 42 45 87 7 78 90 40 5S=1612, max=99Кратные 13: 91 52 78