фирма ежегодно на протяжении n лет

[DiSt]

фирма ежегодно на протяжении n лет закупала оборудование стоимостью соответственно s1,s2...,sn руб. в год (эти числа вводятся и обрабатываются последовательно).Ежегодно в результате износа и морального старения(амортизации) все имеющееся оборудование уценяется на p%. какова общая стоимость накопленного оборудования за n лет?

[Mad_Cat]

sm:=0;
for i:=1 to n do
for j:=1 to n-i do
s[i]:=s[i]*(1-p/100);
sm:=sm+s[i];