Const Li='DAYSO.INP';

      Lo='DAYSO.OUT';

Var f,g: text;

 A: array[1..100] of longint;

 n,i,j: longint;

ok: boolean;

Begin

Assign(f,Li); Reset(f);

Assign(g,Lo); Rewrite(g);

Readln(f,n);

For i:=1 to n do

Read(f,A[i]); 

Ok:=true;

For i:=1 to n div 2 do

If A[i]<>A[n-i+1] then

Begin

Ok:=false ;

Break;

End;

If Ok=true then Write(g,'1')

Else

Write(g,'0');

Close(f);

Close(g);

End.

uses crt;
var n,i : integer;
kt : boolean;
a : array[1..100] of integer;
begin clrscr;
assign(input,'DAYSO.INP');
assign(output,'DAYSO.OUT');
reset(input); rewrite(output);
readln(input,n);
for i:=1 to n do read(input,a[i]);
for i:=1 to n do if a[i] <> a[n+1-i] then kt:=false else kt:=true;
if kt=true then write(input,1) else write(output,0);
close(input); close(output);
readln
end.