var a:array[1..100000] of longint;
    i,n,s:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if a[i]<>a[n-i+1] then s:=1;
if s=0 then write('YES')
else write('NO');
end.
/**************************************************************
	Problem: 1817
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/