{ Найти значение выражения 1*1+2*2+...+n*n }

var n,s,i : integer;
begin
  write('n = ');
  readln(n);
  s:=0;
  for i:=1 to n do
  s:=s+i*i;
  writeln('s = ',s);
  readln;
end.