procedure ...
var
Stack: TStack<integer>;
begin
Stack := TStack<integer>.Create;
try
//...
// Тут весь расчёт
// ...
finally
Stack.Free;
end;
end;проблема связана точно не с аппаратной частью- ничем необоснованное утверждение. Где доказательства, что на Вашем ноуте вообще работают usb порты?
Рекурсия из книжки, стек из вашего примера. Имена переменных особо не менял, сделал только их максимально похожими в обоих расчетах.
По крайней мере для 10 оба расчета показывают как положено - 724. :)
Может чего интересного для себя подглядите.