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

Vara,s:integer;begins:=0;a:=1;while a<>100 do begins:=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 так же включается в сумму.