Вычесление суммы кубов

[londoncold]

Помогите решить задачу s=1(в кубе)+2(в кубе)+3(в кубе)+...+N(в кубе) N число введённое с клавиатура. программу нужно написать в паскале

[rUs_LAN]

функция вКубе(целое)
возвратить целое*целое*целое
----
мейн
write input n
read n
for i = 1 to n do
s = s + вКубе(i)
write 'sume =', s;
если имеете опыт хоть с каким-то языком программирования поймете.

[Mad_Cat]

var i,n:integer;
s:real;
begin
readln(n);s:=0;
for i:=1 to n do
s:=s+i*i*i;
writeln(s);
end.