Pascal вычислите среднее арифметическое делителей заданного числа х

Program gt; var s: real; i,h,x: integer; begin read(x); h: =0; s: =0; for i: =1 to x do if(x mod i=0)then begin h: =h+1; s: =s+i; end; s: =s/h; writeln(s); end.

Программа: #include < iostream> #include < cmath> using namespace std; double f(double a, double b, double c) {       return sin(a) * sin(b) * sin(c); } int main() {       double a, b, c;       cout < < "a = ";       cin > > a;       cout < < "b = ";       cin > > b;       cout < < "c = ";       cin > > c;       cout < < "x = " < < pow(f(a, b, c), 2) + pow(f(a, b, c), 3) < < endl;       return 0; }

// pascalabc.net 3.0, сборка 1128 begin   writeln('исходный массив');   var a: =arrrandom(70,1,1000).println(',');   writeln('количество элементов, кратных 3: ',       a.where(x-> x mod 3=0).count) end. тестовое решение: исходный массив 928,188,299,147,61,366,787,358,715,625,517,552,522,238,569,806,342,808,71,400,176,504,525,242,194,126,595,883,78,627,317,966,478,671,557,665,734,408,665,377,430,2,232,125,161,801,561,541,341,172,273,179,345,584,181,424,663,58,953,935,771,905,280,89,309,552,74,852,682,904 количество элементов, кратных 3: 21