Составить программу ввода с клавиатуры массива и вывода на экран элементов с четными отрицательными значениями.

var n, i:longint;

var a:array[1 ... 10000000] of longint;

begin

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

readln (n) ;

for i:=1 to n do begin writeln ('Введите элемент массива') ; readln (a[i]) ; end;

for i:=1 to n do if ((a[i] mod 2 = 0) and (a[i]<0)) then writeln (a[i]) ;

end.