Дано натуральное число n. Найти все целые положительные числа, которые не превышают n, сума кубов цифр которых равна самим этим числам- Pascal(Паскаль)

uses crt;
var N,i,a,sum,x:integer;
begin
clrscr;
write('N=');readln(N);
for i:=1 to N-1 do
 begin
  x:=i;
  sum:=0;
  while x>0 do
   begin
    a:=x mod 10;
    sum:=sum+a*a*a;
    x:=x div 10;
   end;
  if sum=i then writeln(i);
 end;
readln
end.