Напишите программу на паскале, которая в последовательности натуральных чисел определяет количество чисел, кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 7. ( while или repeat)

var a:array[1..1000] of integer;  

sum,n,i:integer;  

begin  

sum:=0;  

writeln('Введите количество чисел');  

read(n);  

writeln('Введите числа');  

for i:=1 to n do begin  

read(a[i]);  

if (a[i] mod 7=0) and (a[i] mod 10=4)then sum:=sum+a[i];  

end;  

writeln('Сумма элементов кратных 7 и оканчиваюшихся на 4 = ',sum);  

end.

Объяснение:

пойдет?