Question

ПРОГРАММА В ПАСКАЛЬ АВС 6 ЗАДАНИЕ

Answer 1

Если между z и a умножение:
var z:array[1..13] of integer;
s,i:integer;
begin
s:=0;
for i:=1 to 13 do read(z[i]);
for i:=1 to 13 do
if i=5 then s:=s+z[i]*2
else if i=7 then s:=s+z[i]*4
else if i=10 then s:=s+z[i]*i
else s:=s+z[i]*z[i];
writeln(s);
end.