Программа находится во вложении, надеюсь поможет.
Если таблицу делать в excel то написав в любой ячейке формулу =СУММ(T1*C1;T2*C2;T3*C3;T4*C4;T5*C5;T6*C6;T7*C7;T8*C8;T9*C9;T10*C10;)
=СУММ -это формула суммы в скобках пишем что именно нужно суммировать через точку с запятой, если написать T1*C1 то программа сначала посчитает вам произведение количества на цену, и в самую последнюю очередь выдаст вам общие затраты
///////////////////////////////////////////////////////////
11) =6и равно 16. Я бы тебе расписал бы но за телефоном такое себе
var n,z,n1,e:integer;
begin
e:=0;
readln(n);
n1:=n div 2;
for z:=1 to n1 do begin
if (n mod z = 0) then e:=e+z;
end;
if (e=n)
then writeln('соверншенное')
else writeln('0');
end.