DECLARE
    dias NUMBER:=1025;
    resultado NUMBER;
    resto NUMBER;
    meses NUMBER;
BEGIN
   /* Obtener los años */
   DBMS_OUTPUT.put_line(CHR(13));
   DBMS_OUTPUT.put_line(CHR(13));
    resultado:= (dias*1) / 365;
    resultado := TRUNC(resultado, 0);
    /* Obtener los meses */
    resto:= dias - (resultado * 365);
    meses:= resto / 30;
    meses := TRUNC(meses,0);
    /* Obtener los dias restantes */
    resto:= resto - (meses * 30);
    /* Mostrar el resultado */
    DBMS_OUTPUT.PUT_LINE(dias || ' dias son: ' || resultado || ' anyos y ' || meses || ' meses y ' || resto || ' dias' );
END;
/