program TongCacSoTrongMang;
var
  A: array[1..200] of integer;
  N, i, tong: integer;
begin
  write('Nhap vao so luong phan tu N: ');
  readln(N);

  // Nhập giá trị cho từng phần tử của mảng A
  for i := 1 to N do
  begin
    write('Nhap vao phan tu thu ', i, ': ');
    readln(A[i]);
  end;

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

  // In ra giá trị tổng
  writeln('Tong cac so trong mang la: ', tong);
  readln;
// Dừng chương trình để xem kết quả
end.