I. Trắc nghiệm:
1. C
2. D
3. D
4. B
5. C
6. B
7. B
8. C
9. D
10. A
II. Tự luận:

Bài 1:

Program BTT;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If n<=10 then Write('Sai yeu cau de')
        Else
        For i:=10 to n do Write(i,' ');
        Readln
End.

Bài 2:

Program BTT;
Uses crt;
Var n,i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If n<=10 then Write('Sai yeu cau de')
        Else
        For i:=10 to n do Writeln(i,' ');
        Readln
End.

Bài 3:

a)

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do s:=s+i;
        Write(s);
        Readln
End.

b)

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=2 to n do
                If i mod 2 = 0 then s:=s+i;
        Write(s);
        Readln
End.

c)

Program BTT;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=3 to n do
                If i mod 2 = 1 then s:=s+i;
        Write(s);
        Readln
End.

d)

Program BTT;
Uses crt;
Var n,i: longint;
    s: real;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=3 to n do
                If i mod 2 = 1 then s:=s+1/i;
        Write(s:0:2);
        Readln
End.

e)

Program BTT;
Uses crt;
Var n,i: longint;
    s: real;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=2 to n do
                If i mod 2 = 0 then s:=s+1/i;
        Write(s:0:2);
        Readln
End.

f)

Program BTT;
Uses crt;
Var i: longint;
    s: real;
Begin
        Clrscr;
        s:=0;
        For i:=2 to 15 do
                s:=s+1/i;
        Write(s:0:2);
        Readln
End.

Bài 4:

Program BTT;
Uses crt;
Var i: longint;
Begin
        Clrscr;
        For i:=1 to 10 do
                Writeln('9 x ',i,' = ',9*i);
        Readln
End.

Bài 5:

Program BTT;
Uses crt;
Var i,j,d,r: longint;
Begin
        Clrscr;
        Write('Nhap chieu dai: '); Readln(d);
        Write('Nhap chieu rong: '); Readln(r);
        For i:=1 to r do
        Begin
                For j:=1 to d do
                        Write('*');
                Writeln;
        End;
        Readln
End.

Bài 6:

Program BTT;
Uses crt;
Var a,b: longint;

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

Begin
        Clrscr;
        Write('Nhap a: '); Readln(a);
        Write('Nhap b: '); Readln(b);
        Write(UCLN(a,b));
        Readln
End.

Bài 7:

Program BTT;
Uses crt;
Var n: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        If n mod 2 = 0 then Write(n,' la so chan')
        Else Write(n,' la so le');
        Readln
End.

Bài 8:

Program BTT;
Uses crt;
Var n: qword;
    i: longint;

Function hoanhao(a: longint): boolean;
Var i,s: longint;
Begin
        s:=0;
        For i:=1 to a div 2 do
                If a mod i = 0 then s:=s+i;
        If s = a then exit(true);
                      exit(false);
End;

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