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.