Напечатать все четырехзначные натуральные числа,в десятичной записи которых нет двух одинаковых цифр

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Var i,j,n:longint; mn:set of byte; Begin For i:=1000 to 9999 do Begin j:=0;n:=i;mn:=[]; While n>0 do Begin if n mod 10 in mn then j:=1; mn:=mn+[n mod 10 ]; n:=n div 10; End; if j=0 then writeln(i); End; readln; End.