conveyor function in f#
let square x = x * x
let sumOfSquares n =
[1..n] // Создадим список с элементами от 1 до n
|> List.map square // Возведем в квадрат каждый элемент
|> List.sum // Просуммируем их!
printfn "Сумма квадратов первых 5 натуральных чисел равна %d" (sumOfSquares 5)