Даны натуральные числа 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.