adicionado 8 algoritmos em pascal