I. Trắc nghiệm:
Câu 12: B
Câu 13: A
Câu 14: C
Câu 15.1: D
Câu 15.2: A
Câu 16: B
Câu 17: A
Câu 18: A
Câu 19: A
Câu 20: D
II. Tự luận:
Câu 1:
Program BT;
Uses crt;
Var A: array[1..6] of integer;
    s, d, i: integer;

Begin
        Clrscr;
        s := 0; d := 0;
        For i := 1 to 5 do
        Begin
                Write('Nhiet do ngay thu ',i,' la: ');
                Readln(A[i]);
                s := s + A[i];
        End;

        Writeln('Nhiet do trung binh = ', s / 5 : 0 : 2);

        For i :=1 to 5 do
                If A[i] > s / 5 then inc(d);
        Write('Co ',d,' ngay nhiet do cao hon nhiet do trung binh');
        Readln
End.
Câu 2:
Program BT;
Uses crt;
Var a, b, c: integer;

Function min(x, y: integer): integer;
Begin
        If x <= y then exit(x);
        exit(y);
End;

Begin
        Clrscr;
        Write('Nhap 3 so: '); Readln(a, b, c);
        If (min(a, b) = a) and (min(a, c) = a) then Write('Min = ',a)
        Else If (min(b, a) = b) and (min(b, c) = b) then Write('Min = ',b)
        Else If (min(c, a) = c) and (min(c, b) = c) then Write('Min = ',c);
        Readln
End.
Câu 3:
Program BT;
Uses crt;

Procedure Ve_HCN;
Begin
        Writeln('********');
        Writeln('*      *');
        Write('********');
End;

Begin
        Clrscr;
        Ve_HCN;
        Readln
End.