Найдите сумму элементов массива, который делится на 5 и 8 одновременно

Uses crt;

const n=10;

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

i, s:integer;

begin

randomize;

for i:=1 to n do

begin

a[i]:=random (1000) ;

write (a[i],' ') ;

end;

writeln;

for i:=1 to n do

if (a[i] mod 5=0) and (a[i] mod 8=0) then s:=s+a[i];

writeln (s) ;

end.