Написать программу на паскале.Найти сумму слагаемые

В Вашем ответа все верно,по другой не правильно

Извините

Program n1;var i,sum,n: integer;beginsum:=0;write('введите кол-во слагаемых: ');readln(n);for i:=1 to n do sum:=sum+i*i;writeln(sum);end.