1. В последовательности чисел подсчитать творение чисел, кратных 3. 2. В

1) Пока пользователь будет вводить числа, мы будем в программке проверять, удовлетворяет ли условию if (num mod 3 = 0) введенное число.
Если да, то у нас будет особая переменная, которая будет вначале одинакова единице, а затем при попадании в тело условия, будет множиться на значение текущего числа.
proizv := 1;
if (num mod 3 = 0) then
proizv := proizv * num;

2) Здесь нужен такой метод:
summa := 0;
proizv := 1;
if (num gt; 0) then
summa := summa + num
else
proizv:= proizv * num;
В конце программки сопоставить творение и сумму:
if (summa gt; proizv) then.

3) Можно использовать проход в оборотном порядке с подмогою слова downto:
for i:=10 downto 1 do
if I := 2 then
write(A[i]);
Предпоследнее отрицательное число будет отображено на экране.