program TinhTichSoLe;
var
  n, i: integer;
  tich: longint;

begin
  // Nhập giá trị của n từ người dùng
  write('Nhap gia tri cua n: ');
  readln(n);

  // Khởi tạo giá trị ban đầu cho biến tích
  tich := 1;

  // Tính tích của các số lẻ từ 1 đến n
  for i := 1 to n do
  begin
    if i mod 2 <> 0 then // Kiểm tra xem i có phải là số lẻ không
      tich := tich * i;
  end;

  // Hiển thị kết quả
  writeln('Tich cua cac so le tu 1 den ', n, ' la: ', tich);

  readln; // Dừng chương trình để người dùng có thể đọc kết quả
end.