===== PascalABC.NET =====

begin

 var s := 0.0;

 foreach var n in Range(99, 3, -3) do

   s := Sqrt(n + s);

 Println(s)

end.