Отыскать сумму квадратов естественных чисел от 15 до 25.

program zz1;

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

begin

for i:=15 to 25 do // организуем цикл, в котором переберем числа от пятнадцати до 20 пяти

begin

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

end;

write( сумма квадратов естественных чисел от 15 до 25 = , n); // выводим ответ

end.