Помогите составить программу
Вычислить сумму квадратов натуральных чисел на отрезке от 5 до 10

Нет, ее я понимаю.Меня интересует "Sum", оно же стоит в "repeat" оно же должно все время изменяться.Я просто не понял "sum := sum + i * i;"

Оно и изменяется: к сумме прибавляется i в квадрате на каждой итерации цикла.

Спасибо, теперь понял.Это не то что я хотел составить.

Program Test;Var a,a2,a1,b,c:integer;Begina:=5;a1:=5;b:=11;repeata2:=Sqr(a);inc(a);Inc(a1);until a1=bend.

Одним словом," куча мала".Ладно, ще раз благодарю за объяснения.Доброй ночи