我不知道这段代码的主要问题是什么。
你的代码有几个问题:它是迭代的,而不是递归的;这太复杂了;这个循环:
for n:=1 to egesszamosszeg do
</code>
有效地:
for n:=1 to 0 do
</code>
考虑这个简单的函数,它有效地实现了你的问题的要点:
function egesszamosszeg(n:integer) : integer;
begin
egesszamosszeg := n;
if (n > 1) then
egesszamosszeg := egesszamosszeg + egesszamosszeg(n - 1);
end;
begin
writeln(egesszamosszeg(10));
end.
</code>