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.