viết chương trình tính tổng bậc 3 của n số nguyên đầu tiên

program bac_3;

uses crt;

var n,i: integer;

      T: longint;

Begin

         write(‘Nhap n: ‘); readln(n);

         T:=1;

         for i:=1 to 3 do T:=T*n;

         write(n,’^3 = ‘,T);

         readln

End.