水仙花数 delphi

输出100-999 之间的所有水仙花数。
关于“水仙花”数：若三位的各位数字的立方之和等于该数本身，则该数为“水仙
花”数。如153=13+53+33。

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i,m,n,k:integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  for m:=100 to 999 do
  begin
  i:= m div 100;
  n:=(m div 10)mod 10;
  k:= m mod 10;
  if (m=i*i*i+n*n*n+k*k*k) then
  writeln('满足条件的为：',m);
  end;
  readln;
end.


输出100-999 之间的所有水仙花数。
关于“水仙花”数：若三位的各位数字的立方之和等于该数本身，则该数为“水仙