Если под перестановкой вы имеете в виду факториал, то вам нужен следующий код. Он получит целое число и вычислит его факториал.
DECLARE FUNCTION Factorial (n)
FUNCTION Factorial (n)
IF n = 0 THEN
Factorial = 1
ELSE
Factorial = n * Factorial(n - 1)
END IF
END FUNCTION
INPUT "PLEASE ENTER AN INTEGER", n
PRINT n;"! = "; Factorial(n)
Но если под перестановкой вы подразумеваете все перестановки последовательности 1, ..., n, то это уже другая история. Так что дайте мне знать в комментариях.