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

Спасибо огроменное тебе.

АБС паскаль, если что, не все паскали понимают for var i:=

Хорошо

Он и нужен

var  sum,n:longint; begin  writeln('n=? ');  readln(n);  sum:=0;  // основной цикл  for var i:=1 to n do    sum:=sum+i*i;  writeln('При n=',n,' сумма квадратов первых n чисел = ',sum);end.