Ответ:

program z1;

var i,s,n: integer;

begin

s := 0;

write ('n = ');

readln(n);

for i := 1 to n do

s := s + i*i;

writeln('s = ',s)

end.