Найти сумму квадратов первых 10 чисел. К данной задаче написать циклический алгоритм «пока» Срочно ПОМОГИТЕ Заранее спасибо

program summakv; var n, i: integer;begin n := 0; while i < 11 do begin n := n + sqr(i); i := i + 1; end; writeln('Сумма квадратов первых десяти чисел = ', n);end.Ответ: 385