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

program sum;var N, b, s: integer;// N — количество чисел, b — число,  s — сумма введенных чисел.beginwriteln(\'Введите количество чисел\');readln(n);writeln(\'Введите числа \');s:= 0;for i:integer:=1 to N dobeginreadln(b);s:= s + b;end;Writeln(\'Сумма введенных чисел: \', s)end.