PascalABC.NET
begin
var s := 0.0;
foreach var n in Range(99, 3, -3) do
s := Sqrt(n + s);
Println(s)
end.
