Найти сумму квадратов первых 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