20121106_4

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

        procedure readData();
        begin
                inc(n);
                read(a[n]);
                readData();
        end;

        function calc(i, k : integer) : integer;
        begin
                if k = 0 then calc := 0 else calc := a[i] + calc(i - 1, k - 1);
        end;

begin
        n := 0;
        readData();
        if calc(n div 2, n div 2) = calc(n, n div 2) then write('Yes') else write('No');
end.