program TimGiaTriNhoNhat;
var
  i, num, min_value: integer;
begin
  min_value := MaxInt; // Khởi tạo giá trị nhỏ nhất ban đầu bằng giá trị lớn nhất có thể
  for i := 1 to 10 do
  begin
    write('Nhap so nguyen thu ', i, ': ');
    readln(num);

    // Cập nhật giá trị nhỏ nhất
    if num < min_value then
      min_value := num;
  end;

  writeln('Gia tri nho nhat la: ', min_value);
  readln;
end.