1. В цельночисленном массиве А(7) подсчитать количество частей, огромных числа 6?

1) Пройдем все элементы массива:
for i:integer := 1 to 7 do
Снутри цикла нам необходимо будет найти, какие конкретно числа больше 6:
if (A[i] gt; 6) then
Когда такие числа будут встречаться, мы будем добавлять единицу к нашему количеству number_of:
number_of := number_of + 1;
Когда цикл завершится, мы покажем это количество:
writeln(Количество чисел, великих шести равно , number_of);
end.

2) Сделаем переменную proiz, дадим ей значение 1. Она нужна для записи в нее значения творения.
Пройдем все элементы массива:
for i:integer := 1 to 12 do
Снутри цикла нам необходимо будет найти, какие конкретно числа четные:
if (Р[i] mod 2 = 0) then
Когда такие числа будут встречаться, мы будем умножать proiz на P[i]:
proiz:= proiz  * P[i];
Когда цикл завершится, мы покажем это творенье proiz:
writeln(Произведение четных чисел равно , proiz);
end.