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

Pascal

var

a, b : integer;

r : boolean;

begin

readln (a) ;

r : = true;

b : = a mod 10;

While a > 0 do

begin

if a mod 10 b then

begin

r : = false;

a : = 0;

end;

a : = a div 10;

end;

if r then

writeln ('Все цифры числа одинаковы')

else

writeln ('Цифры числа различны') ;

end.