Один человек в 8 утра увидел НЛО. В течение 15 минут он встретил трех
своих знакомых и рассказал об этом. В течение следующих 15 минут каждый из
этих троих тоже встретил трех своих знакомых и т.д. Продемонстрируйте
процесс, пока количество людей не станет больше 100 0 Сколько пройдет
часов? (сделать через ms exel)

1. Определим производительность каждого принтера, т.е. какую часть грамоты он отпечатает за 1 минуту.
1-й: 1/5, 2-й: 1/7, 3-й: 1/9.
2. Работая вместе, все три принтера напечатают за минуту 1/5+1/7+1/9=
143/315 часть грамоты.
3. Определим время, которое понадобится чтобы сделать всю работу
2018/(143/315) ≈ 4445 мин.
4. Определим, сколько грамот напечатает за это время каждый принтер.
1-й: 4445/5 = 889, 2-й: 4445/7 = 635, 3-й: 4445/9 = 493.8.
5. Поскольку 3-й принтер не успевает напечатать одну грамоту, поправим время работы: 494х9 = 4446 мин.
6. Проверка. 889+635+494 = 2018.

ответ: 4446 мин или 3 суток 2 часа 6 минут

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var a,n,i,s:integer;
begin
  write('Число элементов последовательности ');
  readln(n);
  for i:=1 to n do begin
    write(i,' элемент последовательности = ');readln(a);
    if (a mod 2 <>0) then s:=s+a;
  end;
  writeln('Сумма нечетных = ',s);
 end.

Тестовое решение:
Число элементов последовательности 5
1 элемент последовательности = 3
2 элемент последовательности = 2
3 элемент последовательности = 4
4 элемент последовательности = 1
5 элемент последовательности = 5
Сумма нечетных = 9