Дан массив из N элементов. вывести в строчку все элементы через точку запятой. найти сумму первого и последнего элементов массива

program zz1;

const n=3; / /задаем количество элементов в массиве

var mas:array[1 ... n] of integer;

i, k:integer;

begin

for i:=1 to n do

mas[i]:=random (21) - 10; / /вводим числа в массив рандомно от - 10 до 10

for i:=1 to n do

write (mas[i],'; '); / /выводим числа из массива на экран

writeln; / /переходим на новую строку для вывода

k: = mas[1]+mas[n]; / /получаем сумму первого и последнего элементов

write ('сумма первого и последнего элементов массива=', k); / /выводим ответ

end.