Bài 1: Viết chương trình pascal tính tích của n số lẻ. (n được nhập từ bán phím) gợi ý: nhập n= 7 kết quả = 105

program ct;
uses crt;
var i,n:integer;
    S:int64;
begin
    clrscr;
    S:=1;
    write('Nhap n: '); readln(n);
    for i:=1 to n do
        begin
        if i mod 2 = 1 then
            S:=S*i;
        end;
    writeln('Tich cac so le tu 1...',n,' la: ',S);
    readln;
end.
_____________________________
#Duahauvn

uses crt;
var i,n:longint;s:int64;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=1;
  for i:=1 to n do if(i mod 2=1)then s:=s*i;
  write('s=',s);
 readln
end.