T = 1*3*5*... *N với N là 1 số tự nhiên lẻ được lập từ bàn phím ( viết pascal)

program oken;
uses crt;
var i,t,n:longint;
begin
        clrscr;
        write('Nhap so N: '); readln(n);
        t:=1;
        for i:=1 to n do
                if i mod 2<>0 then
                                t:=t*i;
        writeln('Tich T: ',t);
        readln;
end.

program nhan;

uses crt;

var n,i: integer;

      t: longint;

begin clrscr;

   write('Nhap so le n: '); readln (n);

     t:=1;

     for i:=1 to n do

       if n mod 2 <>0 then

       t:=t*i;

   write('T= ',t);

readln;

end.

Học tốt!