Напечатать все 4-х значные числа,в десятичной записи которых нет 2-ух схожих

                Для Н=1000 По 9999 Цикл

                               Стр = Формат(Н, "ЧРГ=; ЧГ=");

                               Ч1 = Лев(Стр,1);

                               Ч2 = Сред(Стр,2,1);

                               Ч3 = Сред(Стр,3,1);

                               Ч4 = Прав(Стр,1);

                               Если Не (Ч1 = Ч2 Либо Ч1 = Ч3 Или Ч1 = Ч4 Либо Ч2 = Ч3 Либо Ч2 = Ч4 Либо Ч3 = Ч4) Тогда

                                               Сказать(Н);

                               КонецЕсли;

                КонецЦикла;