написать пограмму,которая сначала должна обеспечть ввод 5 чисел в одномернй массив ,зтем выселить их сумму и вывести ее на экран

спасибо☺

var i,sum:integer;a:array[1..5] of integer;beginwriteln('Введите числа');for i:=1 to 5 dobeginwrite('a[',i,']= ');read(a[i]);sum:=sum+a[i];end;writeln('Сумма элементов массива равна ',sum);end.