6 lines
119 B
Text
6 lines
119 B
Text
Procedure SumOfSquares(List base())
|
|
ForEach base()
|
|
Sum + base()*base()
|
|
Next
|
|
ProcedureReturn Sum
|
|
EndProcedure
|