Дан линейный массив найти сумму линейного массива

Program Task; Const N=5; Var a: Array[1… N] of Integer; i, sum: Integer; Begin WriteLn ('Введите ', N, ' целых чисел через пробел'); For i: =1 To N Do Begin Read (a[i]); sum: =sum+a[i]; End; WriteLn ('Сумма элементов массива: ', sum); ReadLn; End.