Найти сумму квадратов чисел от m до n. паскаль

program zz1;

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

begin

write (' введите заданное число n '); / / вводим с клавиатуры последнее число ряда

read (n);

write (' введите заданное число m '); / / вводим с клавиатуры начальное число ряда

read (m);

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

begin

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

end;

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

end.