Программа получает на вход количество чисел в последовательности, а затем сами числа. количество чисел не превышает 1000. введённые числа по модулью не превышают 30 000. программа должна вывести одно число: сумму чисел, кратных 7 и оканчивающихся на 4.
var
s : integer;
begin
var n := ReadlnInteger('Сколько будет чисел? ');
writeln('Вводите числа');
var a := ReadArrInteger(n);
for var i:=0 to n-1 do
if (a[i] mod 10 = 4) and
(a[i] mod 7 = 0) then
s := s + a[i];
writeln('Сумма чисел равна ', s)
end.