Hey guys I'm trying to figure out how to do factorials in a program. Here is what I have so far: program fact; var n0,n:word; t,an,sum:real; begin write('number of terms n0 equals????'); readln(n0); sum:=0.0; t:=n0; for n:=n0 downto 1 do begin t:=t-1; an:=n0*t; sum:=sum+an; end; writeln('s+sum of 1/n^3 terms from n = 1 to n = ',n0); writeln('s=....',sum); write('press enter...');readln; end. I'm trying to see where I'm going wrong. Any help would be much appreciated.