Bài 1:

Program FNG;
Uses crt;
Var n,i: byte;
    s: qword;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=1;
        For i:=1 to n do s:=s*i;
        Write('S = ',s);
        Readln
End.

Bài 2:

Program FNG;
Uses crt;
Var a,b,tg: qword;

Function UCLN(a,b: qword): qword;
Begin
        While a<>b do
                If a>b then a:=a-b
                Else b:=b-a;
        UCLN:=a;
End;

Begin
        Clrscr;
        Write('Nhap tu so: '); Readln(a);
        Write('Nhap mau so: '); Readln(b);
        Write(a,'/',b,' = ');
        tg:=UCLN(a,b);
        a:=a div tg;
        b:=b div tg;
        Write(a,'/',b);
        Readln
End.

Bài 3:

Program FNG;
Uses crt;
Var n,i: longint;

Function ngto(a: longint): boolean;
Var i: longint;
Begin
        If a<2 then exit(false);
        For i:=2 to a div 2 do
                If a mod 2 = 0 then exit(false);
        exit(true);
End;

Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        For i:=1 to n-1 do
                If ngto(i) then Write(i,' ');
        Readln
End.