Http://hastebin.com/wirawunihu.vala
По ссылке код. Отвечу на любые вопросы)
program summation;
var i, summa: Word;
begin
summa := 0;
for i := 1 to 10 do
summa := summa + i;
WriteLn('l + 2 + .+ 10 = ', summa);
end.
Реализация на Excel 2003
лист не защищен, осторожно, не повредить формулы.
Сами формулы отображаются в строке формул.