it
itavarov
program PR;
var
M:array[1..10] of integer;
I:bite;
S:integer;
begin
for i:=1 to 10 do begin
write('введите эл-т массива');
readln(M[I]);
end;
S:=0;
for i:=1 to 10 do if mod M[I] div 3=0 then S:=S+M[I];
writeln('Сумма=',S);
readln;
end.