Найти сумму квадратов всех натуральных чисел от 1 до 100 составить программу

Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=1 to 100 do sum:=sum+i*i;
writeln(sum);
end.