Найдите сумму частей массива (50 частей из [-50; 50]) кратных 7.

program zz1;

var mas:array[1..50] of integer;
i,s:integer;
begin
for i:=1 to 50 do // наполняем массив случайными числами от -50 до 50
mas[i]:=random(101)-50;
for i:=1 to 50 do // выводим массив на экран в строку через пробел
write(mas[i], );
writeln; // перебегаем на новую строчку для вывода
for i:=1 to 50 do
if (mas[i] mod 7=0) then s:=s+mas[i]; // проверяем, если элемент массива делится на семь, то добавляем его к сумме
write(сумма элементов массива кратных семи = ,s); // выводим ответ
end.