Сосавьте программу вычисления функции

PascalABC.NET 3.2:

begin
  var a := ReadReal('Введите a:');
  var n := ReadInteger('Введите n:');
  print(1.To(n).Select(i -> (sin(i*i) + 2 * a * i)/(3 * i + 1)).Sum)
end.