program TimGiaTriNhoNhat;
var
  i, n, min: integer;
begin
  min := maxint; // Khởi tạo giá trị min với giá trị lớn nhất của kiểu integer
  for i := 1 to 10 do
  begin
    write('Nhap phan tu thu ', i, ': ');
    readln(n);
    if n < min then
      min := n;
  end;
  writeln('Gia tri nho nhat la: ', min);
  readln;
end.