Задан одномерный массив датчиком случайных чисел состоящий из 10 элементов найти сумму первого и последнего элемента

var      mas:array [1..10] of integer;     i:integer;begin  randomize;  for i:=1 to 10 do mas[i]:=random(100);   writeln(mas[1]+mas[10]);end.