Date: 03/06/06 (Code WTF)    Keywords: no keywords

program lab3;
uses tpcrt;
var x,a,s:real;
n,k:integer;
begin clrscr;
write ('x=');readln (x);
write ('n=');readln (n);
s:=0;
for k:=1 to n do begin
a:=x/k/k/k/k;
s:=s+a; end;
writeln('s=',s);
readln end.

Source: http://community.livejournal.com/code_wtf/31636.html