El siguiente es el programa fuente en lenguaje Pascal.