Дан линейный массив из 10 целочисленных элементов введённых с клавиатуры вывести на экран положительные четные элементы их произведения. с паскаля

Uses crt;
const n=15;
var a:array[1..n] of integer;
i:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(100)-50;
write(a[i]:3);
end;
writeln;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then
write(a[i]:3);
end

Объяснение:

Хочу показать табличный решения подобных задач по шагам.  

Шаг первый. Лена и Аня - сладкоежки. Исключаем капусту и сметану.  

Шаг второй. Аня любит сладкие пироги. Помечаем зеленым цветом для Ани пироги с вареньем. Ване достались пироги с капустой.  

С пирогами разобрались. Помечаем коричневым цветом горизонтали с пирогами.  

Шаг третий. Лене достались блины с вареньем. Помечаем зеленым цветом  для Лены эту клетку, а всю горизонталь - коричневым.  

Шаг четвертый. Осталась одна не закрашенная клетка - для Светы оладьи со сметаной. Закрашиваем ее зеленым цветом.  

Если создаваемый документ содержит много страниц и включает разделы, подразделы и т.п., то для удобства пользования им целесообразно создавать оглавление (как это делается в книгах). Создание оглавления возможно только в документе, который имеет иерархическую структуру, включающую как минимум два уровня иерархии и заголовки разделов и подразделов, созданные с применением стилей с наименованием Заголовок, или с стилей пользователя, созданных на основе стилей Заголовок. Заметим, что Word Позволяет создавать документы с иерархией до девяти уровней.

Как создать оглавление с использованием стилей заголовков?

Наиболее простым создания оглавления является использование встроенных форматов уровней структуры или стилей заголовков. Если встроенные форматы уровней структуры или стили заголовков уже используются, выполните следующие действия:

1. Установите мерцающий курсор в место вставки оглавления.

2. На ленте Ссылки в группе Оглавление раскройте список Оглавление.

3. Чтобы воспользоваться одним из готовых решений, кликните нужный вариант оглавления в списке.

Если вы хотите сделать настраиваемое оглавление, то:

1. В списке Оглавление выберите пункт Настраиваемое оглавление – откроется окно диалога Оглавление.

2. Во вкладке Оглавление диалогового окна Параметры оглавления укажите нужные параметры.

Если уровни структуры или встроенные заголовки не используются, то следует определить структуру документа.

Это имелось ввиду?)