Определить количество и вычислить сумму элементов одномерного массива n, кратных трем. ni/3*3=ni

Program odnmassiv; 
uses crt;
 Var N:array[1..50] of integer; i,s:integer;
 Begin 
randomize; 
For i:=1 to 50 do
 Begin N[i]:=random(31); 
write(N[i]:3);
 if N[i] mod 3 = 0 then s:=s+N[i]; 
End; 
writeln; 
writeln('Сумма элементов кратных 3 = ',s);
 readln; 
End.