выделить мышкой, либо нажатием ctrl+a
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
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.
program t;
var n, s, i: integer;
begin
readln(n);
s:=0;
for i:=n to 2*n do s:=s+i*2;
writeln(s)
end.