adicionado a base de pascal.