составьте программу которая находит сумму квадратов чисел от 1 до 10

не забыл указать язык?

сумма=0;
for(i=1; i<=10; i++) сумма += i*i;

let squares = [ for x in 0..10 -> x*x ]
let sum_squares = List.sum squares
printfn "result = %d" sum_squares