Найти сумму квадратов натуральных чисел от 2 до 5 с шагом 1 составить программу

program zz1;

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

begin

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

begin

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

end;

write (' сумма квадратов натуральных чисел от 2 до 5 с шагом 1 = ', n); / / выводим ответ

end.