Напишите программу поиска всех чисел в диапазоне от 1000 до 9999 в которых сумма кубов цифр равна самому числу. срочно

в 4-х циклах перебирай все цифры и сравнение сумма кубов цифр

for N1 := 1 to 9 do for N2 := 0 to 9 do for N3 := 0 to 9 do for N4 := 0 to 9 do if N1*N1*N1 + N2*N2*N2 + N3*N3*N3 + N4*N4*N4 = ((N1*10 + N2)*10 + N3)*10 + N4 then WriteLn(N1, N2, N3, N4);