Напишите программу на языке программирования pascal. дано натуральное число n, целые числа а₁, а₂,  .вычислить сумму чисел а₁, а₂, , кратных 3.

Var n,i,k,s : integer;
Begin
  s:=0;
  Write('N ? '); Readln(n);
  Writeln('Вводите a1 a2 ... aN');
  For i:=1 to n do
  Begin
    Readln(k);
    If k mod 3 = 0 then s:=s+k;
  end;
  Writeln('Сумма кратных трём: ',s);
end.