Program Summa_kvadr;
Var n, i, s: integer;
Begin
write (' n: '); readln (n);
s:=0;            //  
for i:=1 to n do // i  1  n 
    s:=s+i*i;    //   
writeln ('s=', s); //  
End.
