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

Навскидку можно сделать так: вместо самих чисел хранить их разложения на простые множители. например, вместо n=84= будет массив na=(2, 1, 0, 1, 0, еще такой же массив отводишь под сами простые числа. после получения разложения n начинается цикл: берем очередное число i и из na вычитаем его разложение (пробегаемся по простым числам, если i делится, то делим и вычитаем 1 в соотв. элементе массива, пробуем снова). цикл заканчивается, когда все элементы na отрицательны или равны 0, это значит, что факториал последнего i содержит все простые числа в степени не меньшей чем n, т.е. i! делится на n. проблема в том, что непонятно, каких размеров должен быть массив. есть ли ограничения на n? например, если n всегда не больше 10000, то количество простых чисел и сами числа можно константами загнать и т.д. распиши условия, тогда попробую примерно код написать.