Это просто изи изи это легко, просто подумай
program fantscrin;
const n = 8;
var a: array [1..n] of integer;
i,s:integer;
Begin
for i:=1 to n do
a[i]:= random(11)+1;
for i:=1 to n do
write(a[i], ' ');
p:=1;
for i:=1 to n do
if (i mod 2 <> 0) then p:=p*a[i];
writeln('');
writeln('Произведение = ',p);
End.
Исходное сообщение 1000 символов.
8х+8000=16х
Трудно ошибиться. Либо есть сигнал либо его нет.