№6. дано натуральное число n. написать для вычисления суммы 1^2+2^2+3^2++n^2 программу входные данные n=3 выходные данные 14

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.
Если на сайт, просто скопируй в паскаль