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

program zz1;
var i, s:integer; //задаем переменные целого типа

begin
s:=0; //задаем изначальное значение для суммы
for i:=1 to 100 do //организуем перебор всех чисел от единицы до 100
s:=s+i*i; //умножаем число на себя, получая его квадрат и полученное число добавляем к сумме
write(сумма квадратов чисел от 1 до 100 = ,s); //выводим ответ
end.