Отыскать сумму квадратов чисел от 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.