program TinhTongMang;
var
  mang: array of integer;
  n, i, tong: integer;
begin
  write('Nhap so phan tu cua mang: ');
  readln(n);
  
  // cấp phát bộ nhớ cho mảng
  SetLength(mang, n);
  
  // nhập giá trị các phần tử của mảng
  for i := 0 to n - 1 do
  begin
    write('Nhap phan tu thu ', i + 1, ': ');
    readln(mang[i]);
  end;
  
  // tính tổng các phần tử trong mảng
  tong := 0;
  for i := 0 to n - 1 do
    tong := tong + mang[i];
  
  // in kết quả ra màn hình
  writeln('Tong cac phan tu trong mang la: ', tong);
  
  readln; // dừng chương trình để xem kết quả
end.