Составьте программу для вычисления суммы элементов массива.

• var a: array
  \[1\.\.100\]
  of integer;
• m, s, i: integer;
• begin
• m := 100; sum := 0;
• for i := 1 to m do read\(a⟨1⟩\);
• for i := 1 to m do sum := sum + a
  \[i\]
  ;
• writeln\('Сумма элементов: ', sum\);
• end.