Я почти сделал, но к сожалению там пошла ошибка, а из-за того, что я не очень помню паскаль, эту ошибку я решить не смог. Я уверен, ты сможешь.
Код:
var
a: array[1..1000] of integer;
N, i, j, k: integer;
begin
write('N = ');
readln(N); //тут он тебя просит ввести количество чисел в массиве
write('Введите ', N, ' целых чисел: ');
for i := 1 to N do read(a[i]); //здесь ты вводишь поочереди все числа массива
for j :=0 to N do
if (array[j] mod 3 == 0) do //а вот тут пошла ошибка. Я хотел сделать так, что если число из массива делится на три без остатка(array[j] mod 3 == 0), то он это число плюсует к счётчику k
k = k + array[j]; // собственно сама сумма чисел, которые делятся
end.