Tìm tất cả các số từ 0 đến 999 thỏa mãn số đó bằng tổng lập phương các chữ số của nó

Câu 1. i,j,k=? Giải thích?
i:=10; j:=11; k:=12;
while i<=20 do
                  Begin
              i:=i+1;
              j:=j+1;
              k:=k+j;
                End;
Câu 2.
Tìm tất cả các số từ 0 đến 999 thỏa mãn số đó= tổng lập phương các chữ số của nó