program Zada4a_13; {$APPTYPE CONSOLE} var i,S,n:longint; begin write('N=');readln(n); S:=0; For i:=n to 100 do if abs(i) mod 2=1 then S:=S+SQR(i)*i; writeln('S=',S); readln; end.