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

 Program Z_n;
var a:array[1..10000] of integer;
N,S,i:integer;
Begin
Readln(N);
For i:=1 to N do begin
Readln(a[i]); // числа вводите через enter
S:=S+a[i];
end;
Writeln(S);
end.