https://www.hardware.com.br/comunidade/pascal-problema/1391144
Problema na conversão do VisuALG para pascal