Составить программу для подсчёта суммы кубов n натуральных чисел. n=40. (Turbo Pascal)

uses Crt;const   n=40;var   i,s:longint;begin   s:=0;   for i:=1 to n do      s:=s+i*i*i;   ClrScr;   Writeln(s);   ReadKeyend.Результат672400