program MinNumberInArray;

var
  arr: array of Integer;
  n, i, minNum: Integer;

begin
  // Nhập độ dài của mảng từ bàn phím
  Write('Nhap so phan tu cua day: ');
  Readln(n);

  // Khởi tạo mảng với độ dài đã nhập
  SetLength(arr, n);

  // Nhập giá trị cho mỗi phần tử trong mảng từ bàn phím
  for i := 0 to n-1 do
  begin
    Write('Nhap phan tu thu ', i+1, ': ');
    Readln(arr[i]);
  end;

  // Tìm số nhỏ nhất trong mảng
  minNum := arr[0]; // Giả sử số đầu tiên trong mảng là số nhỏ nhất
  for i := 1 to n-1 do
  begin
    if arr[i] < minNum then
      minNum := arr[i];
  end;

  // In ra số nhỏ nhất trong mảng
  Writeln('So nho nhat trong day la: ', minNum);

  Readln;
end.