Ajuda com portugol(VisualG)

Bem gente, eu gostaria que algum de vocês me ajudassem com um algoritmo no visualG(Que usa o pascal), já pedi ajuda neste outro fórum, mas não obtive respostas :
http://forum.clubedohardware.com.br/ajuda-visualg-portugol/1122638?p=5918321#post5918321