Решение задачи в Delphi

[Alex Disturbed]

помогите решить задачу в Delphi: Дано натуральное число n и целые числа a1...an найти кол-во и сумму тех членов последовательности a1...an которые деляться на 5 и не деляться на 7.

[Serge_Bliznykov]

Kol := 0; Sum :=0;
for i:=1 to N
 if ((a[i] mod 5)=0) and ((a[i] mod 7)<>0)
  then begin
    Inc(Kol);
    Sum := Sum + a[i];
  end;

[Alex Disturbed]

Спасибо большое, а ещё можно уточнить что именно в "Var" прописывать, а то что то у меня не всё срастается(ещё только учусь)

[Serge_Bliznykov]

const N = 10; {можете своё число N поставить}
var a:array[1..N] of integer;
   i, Kol, Sum : integer;

и всё.

[Alex Disturbed]

Благодарю!