RosettaCodeData/Task/Averages-Root-mean-square/PascalABC.NET/averages-root-mean-square.pas

##
function rootmeansquare(n: array of integer) :=
   Sqrt(n.Sum(x -> x * x) / n.Length);

rootmeansquare(Arr(1..10)).Println;