Трьохзначі числа

На заданому проміжку [A, B] виведіть у зростаючому порядку всі трьохзначні числа, у яких усі цифри різні.

Вхідні дані

У єдиному рядку два натуральних числа з вказаного проміжку. 100 ≤ A ≤ B ≤ 999.

Вихідні дані

Кожне число виводьте на новому рядку.

Вхідні дані

100 105

Вихідні дані

102

103

104

105

program chisla;

var n,m,i,a1,a2,a3 : integer;

BEGIN

readln (n,m);

for i:=n to m do begin

a1:=i div 100;

a2:=i mod 100 div 10;

a3:=i mod 10;

if (a1<>a2) and (a2<>a3) and (a1<>a3) then writeln(i);

end;

END.