Определить, есть ли среди цифр заданного целого трехзначного числа одинаковые.

Var

a: word;

b, c, d: byte;

begin

readln (a) ;

b : = a mod 10;

c : = a div 10 mod 10;

d : = a div 100;

writeln (b, ' ', c, ' ', d) ;

if ((b in [c, d]) or (c in [b, d]) or (d in [b, c])) then

writeln ('Yes, there are')

else

writeln ('No, there aren"t') ;

end.