«дан массив натуральных чисел найти сумму элементов кратных данному k» помогите решить задачу, пожалуйста!!!
program pr1;
const n=10;
var a:array[1..n] of integer;
k,i,s:integer;
begin
writeln('vvedite k');
readln(k);
writeln('vvedite massiv');
for i:=1 to n do
readln(a[i]);
s:=0;
if a[i] mod k =0 then s:=s+a[i];
writeln('s=',s);
readln
end.
Буду благодарна, если отметите