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

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.