Program gt;
var a:array[0..100]of integer;
s,i,n:integer;
begin
s:=0;
n:=12;
for i:=0 to n do
read(a[i]);
for i:=0 to n do
begin
if(a[n-i]-a[i]=a[i])then s:=s+2*a[i];
end;
writeln(S);
end.
ответ 80
2)
такая же программа но там умножаем на 3
и числа другие
ответ 24