Программа в PascalABC.NET. Вычислить сумму квадратов чисел первой сотни.

vara,s:integer; // где а - число, s - суммаbegins:=0;a:=1;while a<>100 do begin //выполняем пока не равно 100s:=s+(a*a); //сумма + квадрат числаwrite(s,','); // вывод через запятуюa:=a+1; // повышаем счётчикend;end.

program SummaKv;var  n, i: integer;begin  n := 0;  for i := 1 to 100 do    n := n + sqr(i);  writeln('Сумма квадратов первой сотни чисел = ', n);end.Здесь квадрат числа 100 так же включается в сумму.