Случайным образом задано 1000

Var

a:array[1 ... 100]of integer;

n, i, c, k, j, x:integer;

begin

readln (n) ;

c:=n;

while n0 do begin

n:=n div 10;

k:=k+1;

end;

for i:=1 to k do begin

a[i]:=c mod 10;

c:=c div 10;

end;

for i:=1 to k do

write (a[i],' ') ;

j:=2;

for i:=1 to k do begin

while jk do begin

if (a[i]=a[j]) and (ij) then

x:=x+1;

j:=j+1;

end;

j:=2;

end;

writeln;

write (x,' повторов') ;

writeln; i

f x=0 then writeln ('все числа различны')

else writeln ('числа в числе повторяются')

end.