Сумма чисел

AvariItigail

23 апреля 2016

Вычислите сумму данных N натуральных чисел.

Входные данные
Вводится число N, а затем N чисел, сумму которых необходимо вычислить.

Выходные данные
Выведите единственное число - сумму введенных чисел.

Исходный код на языке Pascal

var
  n, s, i, a: integer;

begin
  read(n);
  s := 0;
  for i := 1 to n do
  begin
    read(a);
    s := s + a;
  end;
  writeln(s);
end.