Составьте программу, которая для одномерного массива…

program massiv; var a: array[1… 10000] of longint; i,n,produs,summa, sum3, min, max: longint; function produs (n: longint): longint; begin produs: =1; for i: =1 to n do produs: =produs*a[i]; end; function divna3 (n: longint): longint; begin for i: =1 to n do if a[i] div 3=0 then divna3: =divna3+a[i]; end; procedure minMax (min,max: longint); begin min: =a[1]; max: =a[1]; for i: =1 to n do if a[i]>max then max: =a[i] else if a[i]