Firebird - Paginação 2

/* Considerando 20 registros por página */
SELECT
   FIRST 20
   -- skip 0 -- pagina 1
   -- skip 20 -- pagina 2
   skip 40 -- pagina 3

   COUNT(P.CODPESSOA) over () AS C_COUNT, -- Total de registros
   20 AS C_REG_POR_PAGINA, -- Número de registros por página
   CEIL(( COUNT(P.CODPESSOA) over () )/20) AS C_NUM_PAGINAS, -- Número de páginas

   P.CODPESSOA,
   P.NOME
FROM PESSOA P
ORDER BY
   P.CODPESSOA