Pascal введите с клавиатуры массив m из n элементов целого типа, нумерация элементов начинается с 1 и найти произведение четных элементов. входные данные n=5 1 2 3 4 5 выходные данные 8

Begin

var b: integer;

writeln ('Введите n');

readln (b);

writeln ('Имеем последовательность');

var a : = Range (1, b);

a. Println ();

writeln ('Произведение четных равно');

Writeln (a. Where (x - > x mod 2 = 0). Aggregate (1, (p, x) - > p * x));

end.