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