--
comentado PASCAL