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

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 (r1<>r2)and(r1<>r3)and(r1<>r4)and(r2<>r3)and(r2<>r4)and(r3<>r4) then        Write(A,' ')     End; End.