Вводиться 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.