как найти сумму всех элементов в массиве array

var a:array[1..100]of integer;i,sum,n:integer;beginwriteln("vvedite kol-vo elementov");read(n);sum:=0;for i:=1 to n doread(a[i]);for i:=1 to n dosum:=sum+a[i];writeln("summa vseh elementov = ",sum);end.