Помогите пожалуйста, заблаговременно спасибо.Создать метод и программку для вычисления значений

PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 for var ii := 0 to (29 - 1) div 4 do

 begin

   var i := 1 + 4 * ii;

   var (s, i2) := (0.0, i * i);

   for var j := 2 to i * i + 5 do

     s += Sin(Pi * i / (i2 + j * j));

   Writeln(i:2, s:20:15)

 end

end.