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.