Составить алгоритм и программу вывода на экран кубов всех целых чисел от -5 до 12.Помогите кто нибудь.

I=log(2)64=6 бит
Формула хартли

10 всего.
..............

<span>ячейку таблицы................</span>

// PascalABC.Net

function IsNice(n:longint):boolean;
// Отвечает на вопрос, является ли число красивым
var
  d,nd,sd:byte;
begin
  sd:=0; nd:=0;
  repeat
    d:=n mod 10;
    sd:=sd+d; Inc(nd);
    n:=n div 10
  until n=0;
  IsNice:=(sd mod nd = 0)
end;

var
  i,n,k:longint;
begin
  Write('Порядковый номер "красивого" числа: '); Read(n);
  i:=1; k:=0;
  repeat
    if IsNice(i) then Inc(k);
    if k<>n then Inc(i)
  until k=n;
  Writeln('Красивое число равно ',i)
end.

<em><u>Тестовое решение:</u></em>
Порядковый номер "красивого" числа: 15
Красивое число равно 20

1.123(5)=1*5²+2*5+1=36
2.1023(4)=1*5³+2*5+1=136
3.0,4412(5)=4*(1/5)+4*(1/25)+1*(1/125)+5*(1/625)=122/125
4.0,076(8)=7*(1/25)+6*(1/125)=41/125
5.123(10)=443(5)
6.149(10)=225(8)
7.1500(10)=2734(8)
8.25(10)=11001(2)
вроде так