Пожайлуста, помогите мне написать массив в паскале: найдите сумму чисел, кратных чисел?

program uchis;
const
len=10;
var
a:array[1..len]of integer;
i:integer;
sum:longint=0;
begin
for i:=1 to len do
readln(a[ i ]);
for i:=1 to len do
if a[ i ] mod 3 = 0 then sum:=sum+a[ i ];

writeln('Sum: ',sum);
readln;

end.