// PascalABC.NET
function ХочетсяСтранного(n1, n2, n3: integer): sequence of integer;
begin
var a := Seq(n1, n2, n3).Sorted.ToArray;
var s := a.Permutations.Select(t -> 100 * t[0] + 10 * t[1] + t[2]);
foreach var i in 1..9 do
foreach var n in s do
yield 1000*i+n
end;
begin
var (n1, n2, n3) :=
ReadInteger3('Введите три цифры через пробел:');
ХочетсяСтранного(n1, n2, n3).Print
end.
