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

program qwerty;var i: integer;beginfor i:=100 to 1000 doif ((i div 100)<>((i div 10) mod 10)) and ((i div 100)<>(i mod 10)) and ((i mod 10)<>((i div 10) mod 10))then writeln(i);end.