program fantscrin;
const n = 11;
var a: array [1..n] of integer;
i,s,p: integer;
begin
for i: =1 to n do
a[i]: = random(8)+4;
for i: =1 to n do
write(a[i], ' ');
s: =0;
p: =1;
for i: =1 to n do
if (i mod 2 = 0) then p: =p*a[i]
else s: =s+a[i];
writeln('');
writeln('сумма = ',s);
writeln('произведение = ',p);
end.
5
Объяснение:
Функция f вычисляет наибольший общий делитель переданных аргументов по алгоритму Евклида, поэтому результатом вызова подрограммы будет число 5 - наибольший общий делитель чисел 15 и 25