RosettaCodeData/Task/Sum-of-squares/PascalABC.NET/sum-of-squares.pas
2024-07-13 15:19:22 -07:00

3 lines
68 B
ObjectPascal

##
var vector := Arr(1,2,3,4,5,6,7);
vector.Sum(x -> x * x).Println