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

begin

 ReadArrInteger(ReadInteger('n=')).Where(t->(t.IsEven) and (t<0)).Println;

end.