Задача, паскаль 
Ввести целое число и определить верно ли что в его записи есть две одинаковые цифры

Var
  N : Longint;
  s : Set of Byte;
  F : Boolean;
Begin
  s:=[]; F:=False;
  Readln(N);
  While (N>0) and not F do
    If not ((N mod 10) in s) then
    Begin
      Include(s,N mod 10);
      N:=N div 10;
    end else F:=True;
  Writeln(F);
end.