Вводиться n чисел, определить сумму чисел кратных 5 и 10, а так же их количество

Const n=10;

var a: array [1 ... n] of integer; - массив чисел

var i, j, s: integer;

begin

j:=0;

s:=0;

for i:=1 to n do a[i]:=random (100) ;

for i: = 1 to n do

begin

if ((a[i] mod 5 = 0) or (a[i] mod 10 = 0)) then

begin

s:=s+a[i]; j:=j+1;

end;

end;

writeln ('число чисел, кратных 5 и 10 = ', j) ;

writeln ('сумма чисел = ', s) ;

end.