Даны натуральные числа n a1....an. составьте программу которая вычисляет сумму тех элементов последовательности а1...an которые кратны 3м

const n=100; var a: array [1..n] of integer;     s,i: integer; begin   s:=0;   for i:=1 to n do  { вывод массива на экран  }   begin      a[i]:=Random(100);     write(a[i],' ');     if (i mod 10 =0) then writeln();   end;  { подсчет суммы элементов, кратных 3 }      for i:=1 to n do          if (a[i] mod 3 =0) then s:=s+a[i];   writeln('сумма равна   ',s); end.