ПОМОГИТЕ! • ПАСКАЛЬ!

Ответ:

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

i,s,n:integer;

begin

s:=0;

readln(n);

for i:=1 to n do

read(a[i]);

for i:=1 to n do

if (a[i] mod 6=0) then

s := s + a[i];

writeln(s);

end.