Составить программу на Паскале получающий всё четырёхзначные натуральные числа, в записи которых нет двух одинаковых цифр