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

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.