Составить программу, вычисляющую сумму квадратов всех чисел от 1 до 100. (В Pascal)

var i: integer; s: real;

begin s := 0; for i := 1 to 100 do s := s + i * i; writeln(s:7:0);end.