Upload ejercicio6

Problemas al implementar ejercicio6.pas