两个算法问题！(100分)

请结束或提前您的帖子，谢谢合作！

回答二：
求n的平方：
a:=0;
j:=1;
for j:=1 to ndo
begin
a:=a+n;
end;
最后求得n的值即是n平方的值

第2题 求解X立方（或者X平方）的值，要求只用加法。
function Add1(i, j: Integer): Integer;
var
Temp: Integer;
k: Integer;
begin
Temp := 0;
for k := 1 to jdo
Inc(Temp, i);
Result := Temp;
end;

function Add2(i, j: Integer): Integer;
var
temp: Integer;
k: Integer;
begin
temp := 1;
for k := 1 to jdo
temp := Add1(temp, i);
Result := temp;
end;

用add2(2,3)就是2^3 add2(3,4)就是3的4次方。

多人接受答案了。