Pascal :

var a:longint;n:integer;
begin
  n:=0;
  for a:=1 to 2014 do
  if (a mod 400=0)or(a mod 4=0)and(a mod 100<>0) then n:=n+1;
 writeln(n);
end.