Дан массив, состоящий из целых чисел. Напишите программу, которая выводит те элементы массива, которые являются чётными числами.

Pascal ABC.NET

const N=10000;

var a:array[1..n] of integer;

i,l:integer;

begin

writeln('Введите количество чисел');

readln(l);

writeln('Вводите числа');

for i:=1 to l do

read(a[i]);

for i:=1 to l do

if abs(a[i]) mod 2 =0then write (a[i]:4);

end.