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

var n,n1,n2,n3:integer; function srostit(a,b,c:integer):integer; begin     srostit :=     a*100 + b*10 + c; end; Begin     read(n);     n1:=n div 100;     n2:=n mod 100 div 10;     n3:=n mod 10;     writeln(srostit(n1,n2,n3));     writeln(srostit(n1,n3,n2));     writeln(srostit(n2,n1,n3));     writeln(srostit(n2,n3,n1));     writeln(srostit(n3,n1,n2));     writeln(srostit(n3,n2,n1)); End.