Паскаль. даны 10 двухзначных чисел. выведите сумму тех, которые не делятся на 3

Const n=10;

var a:array[1 ... n] of integer;

i, s:integer;

begin

Randomize;

for i:=1 to n do

begin

a[i]:=random (90) + 10;

write (a[i]:4) ;

end;

writeln;

s:=0;

for i:=1 to n do

if a[i] mod 3 0 then s:=s+a[i];

writeln ('Сумма тех, которые не делятся на 3 = ', s) ;

end.

Пример:

65 37 24 68 17 56 17 77 34 99

Сумма тех, которые не делятся на 3 = 371