Помогите пожалуйста. Не умею работать в Паскаль АВС

const n=10;type mas=array[1..n] of integer;var box:mas; i,sum,k:integer;beginrandomize; for i:=1 to n do begin box[i]:=random(100); writeln(box[i]); end; readln(k); for I:=1 to n do begin if box[i] mod k =0 then sum:=sum+box[i]; end; writeln('Сумма:',sum); end.

Если массив заполнять случайными числами, то можно использовать следующий алгоритм:const n=10;type mas=array[1..n] of integer;var box:mas; i,sum,k:integer;beginrandomize;  for i:=1 to n do   begin  box[i]:=random(100);  writeln(box[i]);  end;  readln(k); for I:=1 to n do begin if box[i] mod k =0 then sum:=sum+box[i]; end;  writeln('Сумма:',sum); end.