Lập trình Pascal: Tìm tất cả các chữ số có ba chữ số abc sao cho tổng các lập phương của các chữ số thì bằng chính số đó

Program TIM_SO;
Uses crt;
Var i,j,k:integer;
Begin
Writeln('CHUONG TRINH TIM SO:');
Writeln('------------------------');
For i:=1 to 9 do
 For j:=0 to 9 do
    For k:=0 to 9 do
      if (100*i+10*j+k)=(i*i*i + j*j*j + k*k*k) then
      Writeln(i,j,k,' = ',i,'^3 + ',j,'^3 + ',k,'^3');
Readln;
End.