Program bai1;
uses crt;
var a,b,c,i: integer;
begin
clrscr;
for i:= 100 to 999 do
begin
a:= i div 100;
b:= (i div 10 ) mod 10;
c:= i mod 10;
if a*a*a+b*b*b+c*c*c = i then
begin
writeln(' so ' , i , ' co gia tri bang tong lap phuong cac chu so cua no .');
end;
end;
readln;
end.