= 1; WHILE I<= 10 DOBEGINS

Câu 10 : S := 1; i := 1; while i<= 10 dobeginS := S * i;i := i + 1;end;