Циклические алгоритмы могут повторять одно действие несколько раз.
Вот вам программа, сделал как понял её: если А - не четное число, выполняем (а*в), а если А - четное, выполняем 2 функции при которых если x>3 выполняем x^2+5, а если <=3, то x-8
сравнение тоже с помощью условных операторов сделал
Program n1;
const n=100;
var a: array [1..n] of integer;
i,k,sum,temp: integer;
begin
sum:=0;
k:=0;
for i:=1 to n do
begin
write('введите ',i,' элемент: ');
readln(temp);
if temp=0 then break;
if temp mod 8=0 then
begin
a[i]:=temp;
k:=k+1;
sum:=sum+a[i];
end;
end;
writeln('ср. ариф: ',sum/k);
end.