https://www.hardware.com.br/comunidade/votos-exercicio/1067322
exercicio em pascal