Data - ano bisexto

Function AnoBisexto(Ano:Word):Boolean;

begin

     If (Ano mod 4 <> 0) then Result := False

      else If (Ano mod 100 <> 0) then Result := True

      else If (Ano mod 400 <> 0) then Result := False

      else Result := True;

end;