Вычислить, делится или нет число

var
  d, p: array[0..9] of integer;
  i, k, n, m, t, r: integer;
  c: char;
  f: string[3];
 
begin
  f := 'NO';
  readln(k);
  for i := 1 to k do
    begin
      read(c);
      inc(d[ord(c) - ord('0')])
    end;
  readln;
  if (k > d[0]) or (k = 1)
    then if d[0] < 3
      then begin
        if k >= 3
          then r := 3
          else r := k;
        m := round(exp(r * ln(10))) - 1;
        m := m - m mod 8;
        n := m div 10 + 7;
        n := n - n mod 8;
        while n <= m do
          begin
            for i := 0 to 9 do p[i] := 0;
            t := n;
            repeat
              inc(p[t mod 10]);
              t := t div 10
            until t = 0;
            for i := 0 to 10 do if (p[i] > 0)and (p[i] <= d[i]) then inc(t);
            if t = r
              then begin
                f := 'YES';
                break
              end;
            inc(n, 8)
          end
      end
      else f := 'YES';
  writeln(f)
end.