program Project2; {$APPTYPE CONSOLE} uses SysUtils; Var k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,k11,k12:long int; N:real; begin assign(input,'matches.in'); reset(input); readln(n); readln(k1,k2,k3,k4,k5,k6,k7,k8,k9,k10,k11,k12); close(input); assign(output,'matches.out'); rewrite(output); While (N<100) and (N>0) do begin if ((k1+k2+k3+k4+k5+k6+k7+k8+k9+k10+k11+k12) mod 12) =0 then writeln('yes'); if ((k1+k2+k3+k4+k5+k6+k7+k8+k9+k10+k11+k12) mod 12) <>0 then writeln('no'); end; close(output); end.