Otro ejemplo en Pascal.