pascal Нахождение суммы кубов всех целых чисел от 1 до N

var i,n,s:longint;

begin

readln(n);

s:=0;

for i:=1 to n do s:=s+i*i*i;

writeln('s=',s);

end.