Возведение числа в степень используя только операцию сложения (Delphi)

[giga_person]

Здравствуйте, уважаемые программисты, подскажите:

Используя только операции сложения или вычитания, возвести действительно число в натуральную степень.

Функции типа Power() или через Exp(Ln()) не пойдут.

Хотя бы как возвести таким способом натуральное число в натуральную степень? Натолкните на мысль.

Заранее спасибо!

[LeBron]

{t^q}s:=t;
for i:=1 to q-1 do begin
r:=t;
for e:=1 to s-1 do begin
t:=t+r;
end;
end;

[LeBron]

Это для натурального
А для действительного так просто не получится.

[giga_person]

LeBron, спасибо, как получится сделать для действительного выложу код