Дано трехзначное число.Получить 6 различных чисел,образованных перестановкой цифр заданного числа.ЗАПИСАТЬ ПРОГРАММУ НА ЯЗЫКЕ ПАСКАЛЬ.

Предыдущий
вопрос Следующий
вопрос

program Permutations;
var
num, a, b, c: integer;
begin
writeln('Enter a three-digit number: ');
readln(num);
a := num div 100;
b := (num div 10) mod 10;
c := num mod 10;
writeln('Permutations of the number ', num, ' are: ');
writeln(a, b, c);
writeln(a, c, b);
writeln(b, a, c);
writeln(b, c, a);
writeln(c, a, b);
writeln(c, b, a);
end.

Пример:

Enter a three-digit number:
123
Permutations of the number 123 are:
123
132
213
231
312
321