Comprobar si un año dado es bisiesto en PL/SQL

Requisito previo : introducción a PL/SQL

En el código PL/SQL, los grupos de comandos se organizan dentro de un bloque. Un grupo de bloques relacionado con declaraciones o sentencias. En declare part, declaramos variables y entre start y end part, realizamos las operaciones.

Dado un año, la tarea es verificar si el año dado es un año bisiesto o no.

Ejemplos:

Input: 1500
Output: 1500 is not leap year.

Input: 1600
Output: 1600 is a leap year

Un año es bisiesto si se cumplen las siguientes condiciones:
1) El año es múltiplo de 400
2) El año es múltiplo de 4 y no de 100

-- To check if a
-- given year is leap year or not
DECLARE
  year NUMBER := 1600;
BEGIN
  --  true if the year is a multiple
  -- of 4 and not multiple of 100.
  -- OR year is multiple of 400.
  IF MOD(year, 4)=0
    AND
    MOD(year, 100)!=0
    OR
    MOD(year, 400)=0 THEN
    dbms_output.Put_line(year
    || ' is a leap year ');
  ELSE
    dbms_output.Put_line(year
    || ' is not a leap year.');
  END IF;
END; 

Producción:

1600 is a leap year.