Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива. Необходимо

var    i, n : integer;                      // объявляем переменную целочисленного типа.    arr : array of integer;          // объявляем массив.Begin        readln(n);                       // задаем размер массива.       setlength(arr, n);            // выделяем память под массив.       for i:= 0 to n-1 do        // начало цикла.          begin              arr[i] := random(0, 100); // заполняем элемент массива с индексом i случайным числом.              if arr[i] mod 2 = 0 then    //проверяем четность элемента массива.              write(arr[i], \' \');              // вывод четного элемента массива на экран.          end;End.