VCT tính tổng $a1^{1}$ + $a2^{2}$ + $a3^{3}$ +…+ $aN^{N}$ với n đc nhập từ bàn phím

program tinhtong;

uses crt;

var A:array[1..100] of integer;

      n,i,j:integer;

      gt,s:int64;

begin

     clrscr;

     write(‘Nhap so luong phan tu n: ‘);   readln(n);

     s:=0;

     for i:=1 to n do

          begin

               write(‘A[‘,i,’]= ‘);  readln(A[i]);

               gt:=1;

               for j:=1 to i do gt:=gt*A[i];

               S:=S+gt;

          end;

     write(‘Tong la: ‘,s);

     readln;

end.