Otro ejemplo en Pascal: