a)

1. a =   0 > 10 ⇒ a =   0 + 2 =   2 ⇒ s =       1 *   2 =          2

2. a =   2 > 10 ⇒ a =   2 + 2 =   4 ⇒ s =       2 *   4 =          8

3. a =   4 > 10 ⇒ a =   4 + 2 =   6 ⇒ s =       8 *   6 =        48

4. a =   6 > 10 ⇒ a =   6 + 2 =   8 ⇒ s =     48 *   8 =      384

5. a =   8 > 10 ⇒ a =   8 + 2 = 10 ⇒ s =   384 * 10 =    3840

6. a = 10 > 10 ⇒ a = 10 + 2 = 12 ⇒ s =  3840 * 12 = 46080

+ a = 12 > 12 ⇒ Đúng ⇒ Bước 4

⇒ Thực hiện 6 vòng lặp

⇒ Giá trị a = 12 và s = 46080

b)

uses crt;

var a, s : longint;

begin

clrscr;

a := 0; s := 1;

while a <= 10 do

    begin

        a := a + 2;

        s := s * a;

    end;

write('s = ', s);

readln

end.