напишите программу ♥♥♥

нахождения суммы
элементов массива
А[1..15], кратных 7 или
17. Массив заполняется
произвольными
числами в диапазоне да
100.

Program n1;var a: array[1..15] of integer;sum,i: integer;beginrandomize;write('исходный массив: ');sum:=0;for i:=1 to 15 dobegina[i]:=random(101);write(a[i],' ');if (a[i] mod 7=0) or (a[i] mod 17=0) thensum:=sum+a[i]; end;writeln;write('сумма: ',sum); end.