var sucet,nasiel,k,j,n,i:integer;
    postupnost: array[1..10] of integer;

begin

  {V premennej nasiel si pamatam, ci som uz nasiel postupnost daneho suctu}
  nasiel:=0;

  {Nacitam postupnost a cislo n}
  for i:=1 to 10 do readln(postupnost[i]);

  readln(n);


  {A teraz - idem skusat vsetky moznosti. Pre kazdy
  zaciatok a kazdy koniec vyskusam, ci sucet postupnosti
  od zaciatku i po j rovny n. Spravim dva forcykly i,j.
  i budu zaciatky a j budu konce}

  for i:=1 to 10 do
  begin

    for j:=i to 10 do
    begin

      {A teraz pre postupnos od i po j spocitam sucet
      for cyklus s k}

      sucet:=0;

      for k:=i to j do sucet:=sucet+postupnost[k];

      {a teraz sa opytatm, ci nahodou nieje najdeny sucet rovny n}

      if sucet = n then nasiel:=1;

    end;


  end;


  {A teraz iba napisem, ci som nasiel taku postupnost, aby mala
  sucet n}

  if nasiel = 1 then writeln('ANO')
  else writeln('NIE');

  readln;


end.