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.