Program a1219;
uses crt;
var s,t:string;
      i,j:integer;
      w:boolean;
BEGIN
writeln('Введитче многозначное число');
readln(t);
w:=false;
for i:=1 to length(t)-1 do
  for j:=i+1 to length(t) do
    begin
      if t[i]=t[j] then w:=true;
    end;
if w=true then writeln('Цифры повторяются')
else writeln('Цифры не повторяются');
readln;
END.