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

Question

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

Pascal

Answer 1

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.