program mang;

var
   a: array of integer;  // mảng số nguyên
   n, tong, i: integer;  // n: số phần tử trong mảng, tong: tổng các phần tử, i: biến đếm
  
begin
   write('Nhap vao so phan tu cua mang: ');
   readln(n);

   // cấp phát bộ nhớ cho mảng
   SetLength(a, n);

   // nhập giá trị cho mảng từ bàn phím
   for i := 0 to n-1 do
   begin
      write('Nhap vao phan tu thu ', i+1, ': ');
      readln(a[i]);
   end;

   // hiển thị mảng ra màn hình
   write('Mang cua ban la: ');
   for i := 0 to n-1 do
   begin
      write(a[i], ' ');
   end;

   // tính tổng các phần tử trong mảng
   tong := 0;
   for i := 0 to n-1 do
   begin
      tong := tong + a[i];
   end;

   // hiển thị tổng các phần tử trong mảng ra màn hình
   writeln();
   writeln('Tong cac phan tu trong mang la: ', tong);

   readln;
end.