adicionado codigo das aulas 8-11 em pascal.