Определить, все ли цифры натурального числа 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.