Написать рекурсивную программу нахождения суммы чисел

PascalABC.NET

function RS(a: array of integer): integer;

begin

 var n := a.Length;

 Result := a[0];

 if n > 1 then

   Result += RS(a[1:])

end;

begin

 var n := ReadInteger('Число слагаемых:');

 var a := ReadArrInteger('Вводите:', n);

 RS(a).Println

end.