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

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

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

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

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

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

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

                                               Сообщить(Н);

                               КонецЕсли;

                КонецЦикла;