Mọi người giúp mình giải 3 câu môn Tin được không? Câu 1: Đoạn lệnh sau sẽ viết ra số nào? a:= 15; i:= 2; while (a mod i <> 0) do begin i:= i + 1; end; write(i) A. 2 B. 5 C. 3 D. Không số nào. Câu 2: Đoạn lệnh sau sẽ cho ra kết quả nào? for i:= 5 to 10 do begin write (i + 5); end; A. 5 B. 10 C. 15 D. Giá trị khác Câu 3: Em hãy chỉ ra các câu lệnh nào đúng sau đây? a) If x <= 5 then a:= 5 ; b) If a:= b then writeln('Hello'), else writeln('Bye'); c) Var diemVan : array[1 .. 50] when Integer; d) Var A, B: Integer; Begin write(A); write(B); Readln; End.