z:=strtoint(Eein.text);

a:=0;
b:=0;
y:=0;

repeat
a:=a+1;
b:=b+1;
x:=a*a*a;
y:=(x div b)+ y;
until a=z;
esum.text:=floattostr(y);