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.