Задача №6. Дано натуральное число N. Написать для вычисления суммы 1^2+2^2+3^2+...+n^2 прог?

Var n,k,b : real;beginread (n);k:=0;b:=0;while n>0 do beginb:=(b+1)*(b+1);k:=k+b;n:=n-1;b:=sqrt(b);end;write (k);end. Если на сайт, просто скопируй в паскаль