Напишите программу, которая в последовательности натуралных чисел определяет сумму чисел, кратных 7. Программа получает на вход кол-во чисел в последовательности, а затем сами числа. В послледовательности всегда имеется число, кратное 7. Программа должна вывести одно число - сумму чисел , кратных 7.
var n, i, sum, k:Integer;
begin
sum:=0;
readln(n);
for i := 1 to n do
begin
readln(k);
if (k mod 7 = 0)then begin
sum:=sum+k;
end;
end;
writeln(sum);
end.