Інформатика знайти суму чисел 2, та добуток чисел, кратні 5, від числа 1до 10

Одно из трех:
1) Задача проще чем кажется, поэтому не нужно ничего усложнять. Достаточно просто все записать в соответствии в таблицу и отсортировать по столбцу "Скорость" при фильтров. Что я и сделал (см. файл Excel лист "Предтеч просто")
2) В задаче НЕ достаточно условий, т.к. мне стало не ясно зачем тут 4-ре исследователя!? Я пытался их приплести к условию задачи (Лист: "Предтеч - сложно"), Но мне кажется получился бред.
3) Возможно я чего-то не понял из всего информационного хаоса царившего в данной задаче, но как решать её по другому я не знаю.

Var 
a: array[1..100] of integer; 
n, i: byte; 
sum, p: integer;
begin 
writeln('1. Случайным образом'); 
Randomize; 
write('Введите размер массива: '); 
readln(n); 
sum:=0; p:=1; 
for i:=1 to n do   
begin     
a[i]:=Random(101)-50;     
write(a[i]:4);     
sum:=sum+a[i];     
p:=p*a[i];   
end; 
writeln; 
writeln('Сумма = ', sum:5); 
writeln('Произведение = ', p:5); 
sum:=0; p:=1; 
writeln(''); 
writeln('2. С клавиатуры'); 
for i:=1 to n do   
begin   
write('Элемент ', i, ' = ');   
readln(a[i]);   
sum:=sum+a[i];   
p:=p*a[i];   
end; 
writeln('Сумма = ', sum:5); 
writeln('Произведение = ', p:5);
end.