uses crt; var q,i:longint; n:array[1..1000000]of longint; begin clrscr; readln(q); for i:=1 to q do readln(n[i]); for i:=1 to q do begin if (n[i] mod 4=0) and (n[i] mod 100<>0) or (n[i] mod 400=0) then writeln('YES') else writeln('NO'); end; readln; end.
