program mang;
var
  arr: array of integer; // biến mảng lưu trữ dãy số
  n, i, sum, min: integer; // n là số phần tử trong mảng, i dùng để duyệt mảng, sum là tổng các số trong dãy, min là số nhỏ nhất trong dãy
begin
  write('Nhap so phan tu cua day:');
  readln(n);
  
  // khởi tạo mảng với số phần tử n
  SetLength(arr, n);
  
  // nhập từng phần tử vào mảng
  for i := 0 to n-1 do
  begin
    write('Nhap phan tu thu ', i+1, ': ');
    readln(arr[i]);
    
    // tính tổng các số trong mảng
    sum := sum + arr[i];
    
    // tìm số nhỏ nhất trong mảng
    if i = 0 then
      min := arr[i]
    else if arr[i] < min then
      min := arr[i];

    // in ra các số lớn hơn 50 trong mảng
    if arr[i] > 50 then
      writeln('Phan tu thu ', i+1, ' la ', arr[i]);
  end;
  
  writeln('Tong cua cac phan tu trong day la: ', sum);
  writeln('So nho nhat trong day la: ', min);
end.