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

program zz1;

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

begin

s:=0; / /задаем начальное значение для суммы

for i:=1 to 100 do / /организуем перебор всех чисел от единицы до ста

s:=s+i*i; / /умножаем число на себя, получая его квадрат и полученное число прибавляем к сумме

write ('сумма квадратов чисел от 1 до 100 = ', s); / /выводим ответ

end.