Ответ:

program amountnumbers3;

var

 quantity, amount, number, counter: integer;

begin

 counter := 0;

 amount := 0;

 write('Введите количество чисел: ');

 read(quantity);

 while counter <> quantity do

 begin

   read(number);

   if (number mod 3 = 0) then

     inc(amount, number);

   inc(counter);

 end;

 write('Сумма чисел, кратных 3 = ', amount);

end.

Объяснение:

program amountnumbers3;  // Название программы

var

 quantity, amount, number, counter: integer;  // Создание целочисленных переменных:

• quantity - количество чисел в последовательности
• amount - сумма чисел, кратных 3
• number - числа последовательности
• counter - переменная счетчик

begin  // Начало программы

 counter := 0;  // Переменная счетчик = 0

 amount := 0;  // Переменная, хранящая сумму = 0

 write('Введите количество чисел: ');  // Вывод сообщения в консоль

 read(quantity);  // Считывание количества чисел в последовательности с клавиатуры

 while counter <> quantity do  // Пока значение переменной counter ≠ значению переменной quantity, выполняй

 begin  // Начало цикла

   read(number);  // Считываем число последовательности с клавиатуры

   if (number mod 3 = 0) then  // Если остаток от деления при делении значения переменной number на 3 = 0, тогда

     inc(amount, number);  // Увеличиваем значение переменной amount на number

   inc(counter);  // Увеличиваем значение переменной counter на единицу

 end;  // Конец цикла

 write('Сумма чисел, кратных 3 = ', amount);  // Вывод ответа

end. // Конец программы