@Timtim
kalau gini bener atau salah? program deret; var a,b,n:longint; e,j:extended; begin readln(n); for a:= n downto 1 do begin b:= (a*a-a+1)*(a*a+a+1); j:=...