Нужно решить задачу в Паскале, условие таково:

Пользователь вводит число заранее неизвестное.

Выяснить есть ли в этом числе хотя бы две одинаковые цифры.

Program zz;

var a, z, z1, z2, z3, z4, z5, z6, z7, z8, x:integer;

begin

readln (a) ;

while a>0 do

begin

x:=a mod 10;

if x=1 then z:=z+1;

if x=2 then z1:=z+1;

if x=3 then z2:=z2+1;

if x=4 then z3:=z3+1;

if x=5 then z4:=z4+1;

if x=6 then z5:=z5+1;

if x=7 then z6:=z6+1;

if x=8 then z7:=z7+1;

if x=9 then z8:=z8+1;

a:=a div 10;

end;

if (z>1) or (z1>1) or (z2>1) or (z3>1) or (z4>1) or (z5>1) or (z6>1) or (z7>1) or (z8>1)

then writeln ('yes')

else writeln ('no') ;

end.