Составьте программу которая формирует массив из 10 случайных чисел из промежутка[0; 10] и выводит на экран сформированный массив и сумму первого и последнего элементов массива

Var
a:array[1..10] of integer;
n,s,i:integer;
begin
for i:=1 to 10 do
begin
 a[i]:=Random(11);
 write(a[i],' ');
end;
writeln;
writeln(a[1]+a[10]);
readln
end.