один из вариантов, преобразовать число в строку и посчитать количество повторяющихся символов

Pascal

var

 a, k, i, j: integer;

 s:string;

begin

 readln(a);

 s:=inttostr(a);

 for i:=1 to length(s)-1 do begin

   k:=0;

   for j:=i+1 to length(s) do

     if s[i]=s[j] then inc(k);

   if k>0 then begin

     writeln('В записи есть повторяющиеся символы');

     exit;

   end;

 end;

 writeln('В записи нет повторяющихся символов');

end.