Program Nbr_Cube;
Var k, c, d, u : Integer;
Begin
For k:=100 To 999 Do
Begin
c:=k div 100;
d:=(k div 10) mod 10;
u:=k mod 10;
If (u*u*u+d*d*d+c*c*c) = K Then Writeln (k, ' est un nombre cubique');
End;
End.