Загрузите Word. Наберите следующий текст :
[1] Маша положила в портфель
[2] Задачник по математике
[3] Сам папин портфель весит 300 г.
[4] еще и утюг, который весит 9 кг.
[5] Собираясь на работу, папа положил в свой портфель бумаги,
[6] (хотя это ему и не известно) его двухлетняя дочка
[7] общий вес которых 2 кг 700 г.
[8] Сколько килограмм принесет папа на работу, если
[9] Задача № 15
[10] Григорий Остер
Затем выполните следующие действия:
а) сформируйте абзацы из фрагментов следующим образом:
первый абзац – [2], второй – [10], третий – [9];
четвертый – [5], [7] и [3], пятый – [8], [6], [1], [4]. Затем цифры в скобках удалите.
б) установите параметры страницы:
левое и правое поле – 3 см, верхнее – 2 см, нижнее – 5 см;
в) текст «Григорий Остер» – полужирный шрифт, размер 14, цвет зеленый;
«Задача №» – подчеркивание;
д) все цифры в тексте выделите полужирным шрифтом синего цвета;
е) решите задачу и напечатайте ответ: шрифт – полужирный и подчеркнутый, размер – 18, цвет
лиловый.

Разъяснения разместил в код программы в виде комментариев

//Объявление переменных
//n - количество чисел
//p - произведение найденных чисел
//i - переменная для организации цикла
var
  n, p, i: integer;

begin
  //Переменная p = 1,
  //так как в процессе работы программы в ней
  //накапливается произведение найденных чисел
  p := 1;
  write('Введите количество чисел ');
  //В n - количество вводимых чисел
  readln(n);
  // цикл со счетчиком в котором вводим n чисел,
  for i := 1 to n do
    // Проверяем очередное значение i на кратность 3
    // и выясняем, заканчивается ли это число на 1.
    // Для этого используем целочисленное деление.
    // mod - остаток от деления
    // если i mod 3 = 0, значит i кратно 3
    // если i mod 10 = 1, значит i оканчивается на 1
   
    if (i mod 3 = 0) and (i mod 10 = 1) then
      p := p * i; //умножим p на найденное число
  //Вывод произведения найденных чисел
  writeln('Искомое произведение ', p);
end.

Тестовое решение:
Введите количество чисел 81
Искомое произведение 86751

Если на паскале сойдет, лови:
И так, нам надо создать массив чисел и заполнять его числами вводимых с клавиатуры. Значит мы должны использовать цикл for для ввода чисел, и так же для увеличения каждого числа на 8.
...
Вот код:
const n = 3; //Сколько чисел вводить
begin
var numbers: array [1..n] of integer; //Объявляем массив чисел
for var i := 1 to n do readln(numbers[i]); //Считываем числа n раз
for var i := 1 to n do numbers[i] := numbers[i] + 8; //Увеличиваем каждое число на 8
writeln(numbers.JoinIntoString(', ')); //Выводим числа
end.
...
Примеры:
Ввод: 1, 2, 3
Вывод: 9, 10, 11

Ввод: 0, 5, 7
Вывод: 8, 13, 15
...
Если не сложно нажми " " ;)