Найти сумму ряда чисел 1^3+2^3+3^3++n^3 pascal

begin
   var n,i:integer; 
   var sum:real; 
     begin 
       sum:=0; 
       writeln('Введите n: ');   
       readln(n);   
      for i:=1 to n do   
          sum:=sum+Power(i,3);           
      writeln('ответ:'+sum);   
   end;  
end.