Question

Вычислите сумму данных n натуральных чисел. входные данные вводится число n, а затем n чисел, сумму которых необходимо вычислить. выходные данные выведите единственное число - сумму введенных чисел. примеры входные данные 3 9 5 1 выходные данные 15 необходимо вычислить сумму входящих чисел.

Answer 1

Var
  n, i, num, sum: integer;

begin
  readln(n);
  for i := 1 to n do
  begin
    readln(num);
    sum := sum + num
  end;
  writeln(sum);
end.