begin var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой var l1 := s.Length; // всего цифр var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр if l1 = l2 then Writeln('Одинаковых цифр нет') else Writeln('Одинаковые цифры есть') end.
begin
var s:=ReadlnInteger('n=').ToString; // ввели целым, стало строкой
var l1 := s.Length; // всего цифр
var l2 := s.Distinct.JoinIntoString('').Length; // разных цифр
if l1 = l2 then Writeln('Одинаковых цифр нет')
else Writeln('Одинаковые цифры есть')
end.