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

uses crt;
var i:integer;
begin
  for i:=100 to 999 do
  if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
    ((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.