var
  digits: array[0 .. 9] of integer;
  n, i: integer;

begin
  readln(n);
  while n > 0 do begin
    inc(digits[n mod 10]);
    n := n div 10;
  end;
  { и проверяй, есть ли хотя бы в одном элементе digits значение > 1 }
end.

var chislo,i: integer;
stroka: string;
povt: boolean;
begin
writeln('chislo');
readln(chislo);
str(chislo,stroka);
i:=1;
povt:=false;
while not(povt) and (i<length(stroka)) do
  begin
  povt:=boolean(pos(stroka[i],copy(stroka,i+1,length(stroka)-i)));
  inc(i);
  end;
writeln(povt);
readln;
end.

i := 1;
while (i <= Length(s)) and (Pos(s[i], Copy(s, i + 1, 255)) = 0) do inc(i);

  writeln(i > Length(s));