combinar sem repetir posição

[Joelson Silva]

Estou tentando inverte a posição sem repetir posição, para qualquer tamanho.

exemplo:

1 2 3

2 1 3

3 1 2

algoritmo "exericio"
// Função :
// Autor :
// Data : 25/10/2022
// Seção de Declarações
var

num,valor,cont,i,ultvalor:inteiro

inicio
// Seção de Comandos

escreva("Digite numero:")
leia(num)

cont:=1
enquanto cont <> num faca

     para i de cont ate 3 faca
       ultvalor:=cont
       se(i = 1)então
          escreva(i)
       fimse
       se(i <> ultvalor)então
          escreva(i)
       senao
         ultvalor:=ultvalor+1
       fimse
     fimpara
     escreval
     cont:=cont+1
     valor:=ultvalor
fimenquanto

fimalgoritmo

Editado Março 16, 2022 por Joelson Silva
correção