clique quase funcionando, porém com erro no AND r(i+1)