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

program zz1;

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

begin

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

begin

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

end;

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

end.