Дан массив С,размерностью 50; элементы массива-это числа из промежутка от 0 до 50. Написать промежуток,вычислить кол-во,

Program massiv;Const n=50;Var a: array [ 1 . . n ] of integer; i, kol: Byte; sum, proz: Longint;Beginsum : = 0; proz : = 1; For i : = 1 to n do Begin a [ i ] : = random ( 100 ) + 1; End; For i : = 1 to n do Begin If ( a [ i ] mod 7 = 0 ) and ( a [ i ] < 30) Then begin inc ( kol ); sum : = sum + a [ i ]; proz : = proz * a [ i ]; end; End; If sum = 0 Then proz : = 0; WriteLn ( \' Сумма = \', sum, \' Произведение = \', proz, \' Кол-во \', kol ); End.