Viết chương trình tìm tất cả các số có 3 chữ số abc sao cho abc = a3+b3+c3

Program bt5_17; Var a,b,c:longint; Begin for a:=1 to 9 do for b:=0 to 9 do for c:=0 to 9 do if 100*a+10*b+c=a*a*a+b*b*b+c*c*c then writeln(a,b,c); readln; End.