Ответ получается слишком большой.
const a=15;
type ma=array[1..a] of longint;
var mas:ma;
rez,i:longint;
begin
rez:=1;
for I:=1 to a do
begin
mas[i]:=I*4;
write(mas[i]:4);
end;
for i:=1 to a do
begin
if mas[i] mod 2 = 0 then
rez:=rez* mas[i];
end;
writeln;
writeln('Результат:',rez);
end.