Написать программу на паскале абс тема "создание одномерных массивов" создать и вывести на экран 2 одномерных массива целых чисел размерности n из текстового файла. найти и вывести произведение всех четных элементов.

//PascalABC.NET 3.0 сборка 1139 (10.01.2016)
const
    n = 10;

begin
    var a := ArrRandom(n, 1, 100);
    var b := ArrRandom(n, 1, 100);
    var s := a.Union(b).Where(x -> x mod 2 = 0).Aggregate((S, x) -> S * x);
    Print(S);
end.

ввод из текстового файла писать влом, рандом быстрее