СРОЧНО! Помогите, пожалуйста :с > Написать программу для нахождения четных элем??нтов одномерного массива

//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)begin  var a:=ArrRandom(10); println(a);  for var i:=0 to 9 do    if a[i] mod 2 =0 then print(a[i]);    end.Тестовое решение:[57,42,71,42,53,88,86,80,87,74] 42 42 88 86 80 74