Var
a: array[1..10] of integer;
i, p, s: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1; s:=0;
for i:=1 to 10 do
begin
p:=p*a[i];
inc(s, a[i]);
end;
writeln(s);
writeln(p);
<span>end.</span>
3 5 7 9 11 13 15 17 19 21 23 25
бірінші жолда 10, 16; төртінші жолда 18,4,0; бесінші жолда 11,4,6, (әрі қарай білмеймін)