Номер 4 под скобку г

Question

Номер 4 под скобку г

---

Answer 1

Var
otv, ch, n, i: LongInt;
begin
WriteLn('Введите количество чисел');
readln(n);
Writeln('Вводите числа');
for i := 1 to n do
begin
readln(ch);
otv := otv + (2 * ch);
end;
writeln('Ответ: ', otv)
end.

Comments

отметь как лучший если несложно

---

как будет возможно обязательно поставлю