Question

Помогите пожалуйста составить программу на языке Паскаль)))

Answer 1

var a:array[0...6] of integer;
sum, i, N, x : integer;
begin 
readln(N);
   for i 1 to N do begin
    sum:=0;    
    readln(x);
      if x mod3 = 0
      sum:=sum+x
    end;
 writln(sum);
end.