Buenas noches, sucede que al ejecutar el programa me dan todos los casos bien, con excepción del caso 3_03. En este caso, ¿no se excede el límite admitido por Free Pascal (maxint)? . Por otro lado, me gustaría saber si dentro de los subprogramas podemos utilizar el tipo de variable "Natural" que ustedes definieron. Desde ya, muchas gracias.