Составить программу для подсчёта суммы кубов 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);
   ReadKey
end.

Результат
672400