1/

Program BTH;
uses crt;
var i,n,s:longint;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        s:=1;
        For i:=1 to n do s:=s*i;
        writeln('Tich ',n,' so nguyen dau tien la: ',s);
        readln;
end.

2/

Program BTH;
uses crt;
var i,n:longint;
s:qword;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        s:=1;
        For i:=1 to n do s:=s*sqr(i);
        writeln('Tich ',n,' binh phuong so nguyen dau tien la: ',s);
        readln;
end.

3/

Program BTH;
uses crt;
var i,n:longint;
s:qword;
Begin
        clrscr;
        write('Nhap n: ');readln(n);
        s:=1;
        For i:=1 to n-1 do If i mod 2=0 then s:=s*i;
        writeln('Tich ',n,' so duong dau tien la: ',s);
        readln;
end.