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

Var

A, r1, r2, r3, r4:integer;

Begin

For A: = 1000 to 9999 do

Begin

r1:=A div 1000;

r2: = (A div 100) mod 10;

r3: = (A div 10) mod 10;

r4:=A mod 10;

if (r1r2) and (r1r3) and (r1r4) and (r2r3) and (r2r4) and (r3r4) then

Write (A,' ')

End;

End.