var x,b,c,d:integer; begin read(x); b:=x div 100; c:=x mod 100 div 10; d:=x mod 100 mod 10; if d*d*d+c*c*c+b*b*b=b*100+c*10+d then write('YES') else write('NO'); end. /************************************************************** Problem: 1671 User: admin Language: Pascal Result: Wrong Answer ****************************************************************/