Объяснение:
Хочу показать табличный решения подобных задач по шагам.
Шаг первый. Лена и Аня - сладкоежки. Исключаем капусту и сметану.
Шаг второй. Аня любит сладкие пироги. Помечаем зеленым цветом для Ани пироги с вареньем. Ване достались пироги с капустой.
С пирогами разобрались. Помечаем коричневым цветом горизонтали с пирогами.
Шаг третий. Лене достались блины с вареньем. Помечаем зеленым цветом для Лены эту клетку, а всю горизонталь - коричневым.
Шаг четвертый. Осталась одна не закрашенная клетка - для Светы оладьи со сметаной. Закрашиваем ее зеленым цветом.
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