I. Phần trắc nghiệm: Hãy chọn một đáp án đúng nhất.
Câu 1. Trong Pascal, câu lệnh nào sau đây được viết đúng?
A. for i:= 4 to 1 do writeln(‘A’); B. for i= 1 to 10 writeln(‘A’);
C. for i:= 1 to 10 do writeln(‘A’); D. for i to 10 do writeln(‘A’);
Câu 2. Trong câu lệnh lặp: For i := 1 to 10 do j:= j + 2; write( j );
Khi kết thúc câu lệnh lặp trên, câu lệnh write( j ); được thực hiện bao nhiêu lần?
A. 10 lần B. 5 lần C. 1 lần D. Không thực hiện.
Câu 3. Cho đoạn chương trình: J:= 0;
For i:= 1 to 5 do J:= j + i;
Sau khi thực hiện đoạn chương trình trên, giá trị của biến j bằng bao nhiêu?
A. 12 B. 22 C. 15 D. 42.
Câu 4: Cú pháp của câu lệnh điều kiện dạng đủ nào sau đây là đúng?
A. If <điều kiện> then <câu lệnh 1> else <câu lệnh 2> B. If <câu lệnh> then <điều kiện>
C. If <điều kiện> then <câu lệnh 1> else <câu lệnh 2> D. If &lt;điều kiện&gt; do &lt;câu lệnh&gt;;
Câu 5: Chương trình sau cho kết quả gì?
Program VD;
Var a, b: Real; x: Integer;
Begin
Readln( a,b);
If a>b then x:=a else x:=b;
Writeln(x);
End.
A.Xuất ra màn hình số nhỏ nhất trong 2 số a, b đã nhập.
B.Xuất ra màn hình số lớn nhất trong hai số a, b đã nhập.
C.Chương trình không thực hiện được do lỗi khai báo kiểu dữ liệu.
D.Đảo giá trị của hai biến a, b cho nhau.
Câu 6: Hoạt động nào sau đây lặp với số lần lặp biết trước?
A. Rửa rau tới khi sạch B. Học bài cho tới khi thuộc bài
C. Gọi điện tới khi có người nghe máy D. Ngày tắm 2 lần
Câu 7: Cấu trúc câu lệnh điều kiện dạng thiếu là:
A. If <điều kiện> then <câu lệnh 1> esle <câu lệnh 2> B. If <điều kiện> then <câu lệnh >
C. If <điều kiện> then <câu lệnh 1> <câu lệnh 2> D. If <điều kiện> then <câu lệnh 1> esle <câu lệnh 2>
Câu 8: Ta có 2 lệnh sau:
x := 8;
IF x > 5 then x := x+1;
Giá trị của x nhận được là bao nhiêu?
A. 5 B. 7 C. 8 D. 9
Câu 9: Chọn câu lệnh Pascal hợp lệ trong các câu lệnh sau:
A. If a > b then max = a ; B. If a := b then max = b ;
C. If a = b then S := a+b ; D. If a <> b then b=a;
Câu 10: Chọn cú pháp đúng nhất về câu lệnh lặp:
A. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
B. for < biến đếm > := < giá trị cuối > to < giá trị đầu > do <câu lệnh >

C. for <biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
D. for < biến đếm > : = < giá trị đầu > to < giá trị cuối > do < câu lệnh >
Câu 11: Em hiểu lệnh lặp theo nghĩa nào dưới đây?
A. Một lệnh thay cho nhiều lệnh B. Các câu lệnh được viết lặp đi lặp lại nhiều lần
C. Vì câu lệnh có tên là lệnh lặp D. Cả (A), (B), (C) đều sai
Câu 12: Khi nào thì câu lệnh For..to..do kết thúc?
A. Khi biến đếm nhỏ hơn giá trị cuối B. Khi biến đếm lớn hơn giá trị cuối
C. Khi biến đếm nhỏ hơn giá trị đầu D. Khi biến đếm lớn hơn giá trị đầu

Câu 13: Cho các câu lệnh sau hãy chỉ ra câu lệnh đúng?
A. for i:=1 to 10; do x:=x+1; B. for i:=1 to 10 do x:=x+1;
C. for i:=10 to 1 do x:=x+1; D. for i =10 to 1 do x:=x+1;
Câu 14: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i phải
được khai báo là kiểu dữ liệu nào?
A. Integer B. Real C. String D. Tất cả các kiểu trên đều được
Câu 15: Trong câu lệnh lặp với số lần biết trước (For – do), được thực hiện mấy lần?
A. ( < giá trị cuối > - < giá trị đầu >) lần B. Tuỳ thuộc vào bài toán mới biết được số lần
C. Khoảng 10 lần D. ( < giá trị đầu > - < giá trị cuối>) lần
Câu 16: Xác định số vòng lặp cho bài toán: tính tổng các số nguyên từ 1 đến 100
A. 1 B. 100 C. 99 D. Tất cả đều sai
Câu 17: Kết quả của &lt; điều kiện &gt; trong câu lệnh sẽ có giá trị là gì?
A. Là một số nguyên B. Là một số thực C. Đúng hoặc sai D. Là một dãy kí tự
Câu 18: Sau khi thực hiện đoạn chương trình sau:
S:=0; For i:=1 to 5 do S:=S+i; Giá trị của biến S bằng bao nhiêu?
A. 20 B. 15 C. 10 D. 0
Câu 19: Cú pháp lệnh lặp For – do dạng lùi:
A. for < biến đếm> = < Giá trị cuối >downto < Giá trị đầu > do < câu lệnh >
B. for < biến đếm> := < Giá trị cuối >downto < Giá trị đầu > do < câu lệnh >
C. for < biến đếm> = < Giá trị cuối >down < Giá trị đầu > do < câu lệnh >
D. for < biến đếm> := < Giá trị đầu >downto < Giá trị cuối > do < câu lệnh >
Câu 20: Trong lệnh lặp For – do: (chọn phương án đúng nhất)
A. Giá trị đầu phải nhỏ hơn giá trị cuối
B. Giá trị đầu phải nhỏ hơn hoặc bằng giá trị cuối
C. Giá trị đầu phải lớn hơn giá trị cuối D. Giá trị đầu phải bằng giá trị cuối
Câu 21: Lệnh lặp For – do được sử dụng khi:
A. Lặp với số lần biết trước B. Lặp với số lần chưa biết trước
C. Lặp với số lần có thể biết trước D. Lặp với số lần không bao giờ biết trước
Câu 22: Sau khi thực hiện đoạn chương trình sau: s:=1; for i:= 1 to 3 do s:= s*i;
Giá trị của biến s bằng bao nhiêu?
A. 10; B.5; C. 6; D. 15.
Câu 23: Với câu lệnh for i:=1 to 10 do x:=x+1; biến i được khai báo thuộc kiểu dữ liệu nào?
A. Real; B. Integer; C. String; D. Char.
Câu 24: Lệnh lặp for..to..do của Pascal trong mỗi vòng lặp, biến đếm thay đổi như thế nào?
A. Tăng thêm 1 đơn vị; B. +1 hoặc -1;
C. Giá trị bất kì; D. Một giá trị khác 0.

II: Bài tập: Tính tổng các số tự nhiên đầu tiên chia hết cho 3 không vướt quá N cho trước (N được
nhập vào từ bàn phím).

MONG NHẬN ĐƯỢC SỰ TRỢ GIÚP TỪ CÁC BẠN !!!

Phần I. Trắc nghiệm. (5 điểm)
1. Nhặt thóc ra khỏi gạo cho đến khi trong gạo không còn lẫn thóc là hoạt động:
a. Lặp 10 lần c. Lặp vô số lần (lặp vô hạn)
b. Lặp với số lần chưa biết trước d. Lặp với số lần biết trước
2. Trong câu lệnh lặp For i:=1 to 10 do begin.... end bao nhiêu vòng lặp được thực hiện?
a. Không lần nào b. 10 lần c. 1 lần d. 2 lần
3. Điều kiện kết thúc vòng lặp For... do của Pascal là:
a. Biến đếm lớn hơn giá trị cuối c. Giá trị đầu bằng giá trị cuối
b. Biến đếm lớn hơn hoặc bằng giá trị cuối d. Giá trị đầu lớn hơn giá trị cuối
4. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. For i:=1 to 10; do x=x+1; c. For i:=1 to 10 do x:=x+1;
b. For i:=10 to 1 do x:=x+1; d. For i:=1.5 to 10 do x:=x+1;
5. Trong lệnh lặp For... do của Pascal, sau từ khóa “do” nếu có từ 2 câu lệnh trở lên (câu lệnh
ghép) thì câu lệnh ghép đó phải đặt trong cặp từ khóa nào sau đây?
a. Begin.....readln; b. Begin.....and;
c. End.....Begin d. Begin.....end;
6. Câu lệnh sau đây cho kết quả như thế nào?
For i:=1 to 10 do Writeln(‘A’);
a. In dãy số từ 10 đến 1 ra màn hình c. In dãy số từ 1 đến 10 ra màn hình
b. In 20 ký tự A ra màn hình d. In 10 ký tự A ra màn hình
7. Sau khi thực hiện đoạn chương trình sau, giá trị của biến T bằng bao nhiêu?

i := 0; T := 0;
While i &lt; 3 do
begin T := T + 1; i := i + 1; end;

a. T = 2 b. T = 3 c. T = 4 d. T = 5
8. Cú pháp của câu lệnh lặp với số lần chưa biết trước trong Pascal:
a. While <câu lệnh> do <điều kiện>; c. While <điều kiện> do <câu lệnh>;
b. While <giá trị cuối > do <giá trị đầu>; d. While <giá trị đầu> do <giá trị cuối>;
9. Trong lệnh lặp While... do của Pascal, nếu điều kiện đúng thì:
a. Tiếp tục vòng lặp c. Vòng lặp vô tận
b. Lặp 10 lần d. Thoát khỏi vòng lặp
10. Trong các câu lệnh Pascal sau, câu lệnh nào hợp lệ?
a. x:=1; while x:= 10 do x:=x+5; c. x =1 while x>10 do x:=x+5;
b. x:=1; while x <10 do x:=x+5; d. x:=10; while x<10 do x=x+5;
Phần II. Bài tập. (5 điểm)
Câu 1: Cho đoạn chương trình sau: (2đ)

m:=2; k:=3;
For i:= 0 to 4 do begin

m:=m+1;
k :=k+m;
end;

Sau khi thực hiện đoạn chương trình trên giá trị của các biến m, k bằng bao nhiêu?
1. Câu 2: (3đ)Viết chương trình tính tổng: S= 1+ 1/2 + 1/3 + ….. + 1/N

(n là số nguyên được nhập từ bàn phím)

Làm giúp mình trước ngày 29/04/2020 nha !

Hãy chọn và khoanh tròn đáp án đúng nhất trong các câu sau.
Câu 1: Trong Pascal, cú pháp câu lệnh lặp với số lần lặp chưa biết trước có dạng: A. for...do B. if...then
C. while...do D. if...then...else
Câu 2: Trong các cách khai báo biến sau đây, cách khai báo nào là hợp lệ? A. Var a: array; B. Var a= integer;
C. Var a: integer; D. Var: a: integer;
Câu 3: Trong các cách khai báo biến mảng sau đây, cách khai báo nào là hợp lệ?
A. Var a: array [1..100] for integer; B. Var a: array [1.5..1.05] for integer; C. Var a: array [1,100] for integer; D. Var a: array [1.5,1.05] for integer;
Câu 4: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng? A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên. B.Chỉsốđầu<chỉsốcuối.
C. Kiểu dữ liệu có thể là Integer hoặc Real.
Câu 5: Vòng lặp While ... do kết thúc khi nào?
A. Khi một điều kiện cho trước được thỏa mãn. C. Khi tìm được Output.
D. Cả ba ý trên.
B. Khi đủ số vòng lặp.
D. Tất cả các phương án.
Câu 6: Cho biết câu lệnh sau Do thực hiện mấy lần trong đoạn chương trình sau: i := 5;
While i>=1 do i := i – 1;
A. 1 lần. B. 2 lần. C. 5 lần. D. 6 lần Câu 7: Khi thực hiện đoạn chương trình sau: n:=1; T:=50;
While n>20 do begin n:=n+5; T:=T - n end; Hãy cho biết giá trị của biến T bằng bao nhiêu?
A.14 B.15 C.16 D.17
Câu 8: Khai báo biến mảng: A : array[1..7] of real;. Sử dụng câu lệnh For i:= 1 to 5 do readln(A[i]); để
gán giá trị cho các phần tử trong biến A từ bàn phím, ta sẽ nhập được bao nhiêu giá trị? A.4 B.5 C.6 D.7
Câu 9: Trong câu lệnh khai báo biến mảng, phát biểu nào sau đây đúng:
A.Chỉsốđầuvàchỉsốcuốilà2sốnguyên.
C. Kiểu dữ liệu có thể là integer hoặc real.
Câu 10: Cú pháp lệnh lặp với số lần chưa biết trước:
B.Chỉsốđầu  chỉsốcuối. D. Cả ba ý trên.
A. While < điều kiện > to < câu lệnh >;
B. While < điều kiện > do < câu lệnh >;
C. While < điều kiện > do ;< câu lệnh >;
D. While < điều kiện > to < câu lệnh 1 > do < câu lệnh 2 >;

Câu 1 . Trong các tên dưới đây , tên hợp lệ trong Pascal là :
A. Khoi 8 B. Ngay_20_11 C. 14tuoi D. Begin
Câu 2 . Đại lượng được đặt tên dùng để lưu trữ dữ liệu , có giá trị không đổi trong suốt quá trình thực hiện chương trình được gọi là : A. Tên B. Từ khóa C. Biến D. Hằng
Câu 3 . Trong Pascalm , từ khóa để khai báo biến là :
A. Const B. Begin C. Var D. Uses
Câu 4 . Tính giá trị cuối cùng của c biết rằng : a:=3 ; b:=5 ; a:= a+b ; c:= a+b
A. c=8 B. c=3 C. c=5 D. c=13
Câu 5. Sau câu lệnh x:= 15 mod 2 ; Giá trị của biến x là :
A. 7 B. 6 C. 7.5 D. 1
Câu 6 . Hãy cho biết giá trị của biến X bằng bao nhiêu sau khi thực hiện câu lệnh if (45 mod 3) = 0 then X:=X+2 ; ( biết rằng trược đó giá trị của biến X = 5)
A. 5 B. 9 C. 7 D. 11
Câu 7 . Ta có 2 lệnh sau : x:=8 ; if x>5 then x:=x+1 ; giá trị của x là bao nhiêu ?
A. 5 B. 9 C. 8 D. 6
Câu 8 . Câu lệnh điều kiện đầy đủ là :
A. If < điều kiện > then < câu lệnh 1 > ; Elsse < câu lệnh 2 >
B. If < điều kiện > then < câu lệnh >
C. If < điều kiện > then < câu lệnh 1 > , < câu lệnh 2 >
D. If < điều kiện > then < câu lệnh 1 > ; Elsse < câu lệnh 2 > .

I. Trắc nghiệm:
Câu 1:Xác định bài toán là gì?
A. Chỉ rõ các điều kiện cho trước và kết quả cần thu đc
B. Chỉ rõ các điều kiện cho trước và phương pháp giải
C. Chỉ rõ phương pháp giải và kết quả cần thu đc
D. Chỉ rõ các bước để giải bài toán
Câu 2: Giải thuật đổi giá trị hai biến x và y cho nhau, ta có thể thực hiện như sau:
A. x -> z; z ->y; y-> x B. z->x; z->y; y->x
C. z->x; x->y;y->z D. z->x; x->y; z->x
Câu 3: Phần thân chương trình của Pascal đc bắt đầu và kết thúc bởi cặp từ khóa:
A. Begin và end B. Begin: và end
C. Begin và end; D. Begin và end.
Câu 4: Kiểu dữ liệu thường dùng của Turbo Pascal là:
A. Xâu ký tự B. Số nguyên
C. Số thực D. Cả A, B và C đều đúng
Câu 5: Kết quả của phép chia 7 mod 5 thuộc kiểu gì?
A. Kiểu số nguyên B. Kiểu số thực
C. Kiểu xâu ký tự D. Kiểu thập phân
Câu 6: Nội dung các văn bản muốn ghi ra màn hình bằng lệnh Write phải đc đặt trong cặp dấu ngoặc:
A. ( và ) B. '' và '' C. ' và ' D. { và }
Câu 7: Để tăng biến nhớ X lên 1 đơn vị, ta thực hiện lệnh:
A. X => X + 1; B. X := X+1
C. X => X+ 1 D. X := X + 1;
Câu 8: Tính giá trị cuối cùng của c, biết rằng: a := 3; b := 5; a := a + b; c:= a+b;
A. c=8; B. c=3; C. c= 5; D. c= 13;
Câu 9: Câu lệnh Write và Writeln, Read và Readln khác nhau ở điểm nào?
A. Writeln và Readln sau khi thực hiện, con trở tự động xuống dòng kế tiếp
B. Write và Read sau khi thực hiện, con trở tự động xuống dòng kế tiếp
C. Write là viết ra còn Writeln là ghi vào
D. Read là đọc vào còn Readln là ghi ra
Câu 10: Cấu trúc rẽ nhánh dạng đủ có dạng như sau:
A. If <câu lệnh 1> Then <điều kiện> Else <Câu lệnh 2>;
B. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>
C. If <điều kiện> Then <câu lệnh 1> Else <Câu lệnh 2>;
D.If <điều kiện> Then <câu lệnh 1>; Else <Câu lệnh 2>;
II. Tự luận:
11. Cấu trúc chương trình gồm mấy phần? Gồm những phần nào? Phần nào là quan trọng nhất và k thể thiếu đc?
12. Viết chương trình. Nhập vào ba số thực bất kỳ, báo ra màn hình giá trị lớn nhất trong ba số đó

Câu 1 Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp biết trước?

a. if...then b. if...then...else

c. for...do d. while...do

Câu 2 Pascal sử dụng câu lệnh nào sau đây để lặp với số lần lặp chưa biết trước?

a. if...then b. if...then...else

c. for...do d. while...do

Câu 3 Lệnh lặp nào sau đây đúng

a. For <biến đếm >=<giá trị đầu>to <giá trị cuối >do;

b. For <biến đếm >:=<giá trị đầu> to <giá trị cuối >do;

c. While< điều kiện > = do< câu lệnh > ;

d. While< điều kiện >:= do< câu lệnh>;

Câu 4 Phát biểu nào sau đây đúng ?

a. Phần mềm GeoGebra dùng để vẽ hình học .

b. Phần mềm Finger Break Out dùng để quan sát thời gian trên trái đất.

c. Phần mềm Pascal dùng để luyện gõ phím nhanh .

d. Phần mềm Sun Times dùng để lập trình .

Câu 5 Câu lệnh Pascal: While(3*5>=15) do Writeln (3*5); sẽ

a. In số 15 ra màn hình 3 lần .

b. In số 15 ra màn hinh 5 lần.

c. Không thực hiện lệnh Writeln (3*5);

d. Lặp vô hạn lần lệnh Writeln (3*5);

Câu 6 Trong câu lệnh lặp fof...do của pascal, mỗi vòng lặp , biến đếm thay đổi như thế nào?

a. +1 b.+1 hoặc -1

c. Một giá trị bất kì d. Một giá trị khác 0

Câu 7 Trong câu lệnh lặp

For i:=1to 20 do Begin s:= s+i end ;

Câu lệnh ghép thực hiện bao nhiêu lần ( nói cách khác , bao nhiêu vòng lặp được thực hiện )?

a. 1 lần b. không lần nào

c. 20 lần d. 21 lần

Câu 8 Lệnh lặp với số lần chưa biết trước nào sau đây là đúng?

a. For < biến đếm>=< giá trị đầu > to < giá trị cuối > do ;

b. For < biến đếm>:=<giá trị đầu > to < giá trị cuối > do;

c. While < điều kiện >=do < câu lệnh >;

d. While < điều kiện >:= do < câu lệnh ;

Câu 4: Trong câu lệnh lặp: For (Biến đếm):=(Giá trị đầu) to (Giá trị cuối) do (câu lệnh); Khi thực hiện ban đầu Biến đếm nhận giá trị = Giá trị đầu, sau mỗi vòng lặp biến đếm tăng thêm:

A. 1 đơn vị

B. 2 đơn vị

C. 3 đơn vị

D. 4 đơn vị

Câu 5: trong câu lệnh lặp với số lần xác định trước, <câu lệnh> được thực hiện bao nhiêu lần?

A. (<giá trị đầu> - <giá trị cuối>) lần.

B. (<giá trị cuối> - <giá trị đầu>) lần.

C. (<giá trị cuối> - <giá trị đầu> + 1) lần.

D. Khoảng 10 lần

Câu 6: Tìm giá trị S khi thực hiện đoạn chương trình sau đây

S:=0;

For i:=1 to 5 do S:= S+i;

A. S=0. B. S= 1. C. S=10. D. S=15.

Câu 7: Hãy cho biết kết quả của b trong đoạn chương trình sau đây.

a:=10; b:=5;

while a>=10 do

begin b:=b+a; a:=a-1; end;

A. b=5.

B. b=10.

C. b=15.

D. B=20.

Câu 8: Lúc nào thì câu lệnh lặp While..Do sẻ dùng lại?

A. <Điều kiện> có giá trị đúng.

B. < Điều kiện> có giá trị sai.

C. Các câu lệnh bên trong < câu lệnh> đã thực hiện xong.

D. Tất cả phương án trên đều sai.

Câu 9: Bạn Ngọc muốn in ra màn hình 5 chữ B và 5 chữ C trên màn hìnhbằng đoạn chương trình sau:

For i:=1 to 5 do

Writeln(‘B’); writeln(‘C’);

Theo em bạn Ngọc viết như thế nào

A. Đúng rồi

B. Phải đưa Writeln(‘B’); writeln(‘C’) vào trong cặp từ khóa Begin và End;

C. Phải đổi Writeln thành Write.

D. Phải đặt Writeln(‘B’); writeln(‘C’); trên hai dòng riêng biệt.

Câu 10: Việc đầu tiên câu lệnh While cần thực hiện là gì?

A. Thực hiện <câu lệnh> sau từ khóa Do.

B. Kiểm tra giá trị của <điều kiện>.

C. Thực hiện < câu lệnh > sau từ khóa Then.

D. Kiểm tra <câu lệnh>.

Câu 11: Kết quả của < điều kiện> trong câu lệnh While ..Do có giá trị gì?

A. Là 1 số nguyên.

B. Là 1 số thực.

C. Đúng hoặc sai.

D. Là 1 dãy kí tự.

Câu 12: Câu lệnh sau từ khóa Do trong câu lệnh While sẻ được thực hiện bao nhiêu lần?

A. 0 lần.

B. 1 lần

C. 2 lần

D. Tùy thuộc bài toán.

1.Em hiểu câu lệnh lặp nào trong pascal theo nghĩa nào sau đây ?
A.câu lệnh lặp là câu lệnh được sử dụng để chỉ thị cho máy tính thực hiện cấu trúc lặp
B.Một câu lệnh lặp có thể thay cho nhiều câu lệnh khác nhau
C.câu lệnh lặp chỉ là tên của 1 loại câu lệnh trong pascal
D.cả A,B và C đều sai
2.Trong câu lệnh lặp for<biến đếm>:=<giá trị đầu>to<giá trị cuối>do<câu lệnh>; thì biến đếm thuộc kiểu dữ liệu gì?
A.kiểu kí tự.
B.kiểu số thực
C.kiểu số nguyên
D.kiểu số thực hoặc số nguyên

3.Trong câu lệnh For i:=1 to 20 do write (‘*’); số vòng lặp là:
A.1. B.19. C.20. D.21
4.câu lệnh nào dùng để in ra màn hình sau ‘Pascal’?
A.for i:=1 to 10 do writeln (‘Pascal’)
B. for i:=1 to 10 writeln (‘Pascal’)
C. for i:=1 to 10 do writeln (‘Pascal’); for i:=1 to 10 do writeln (Pascal);
5.câu lệnh nào dùng để in ra màn hình các số lẻ từ 1 đến 10?
A. for i:=1 to 10 do writeln (‘i’);
B. for i:=1 to 10 do writeln (i);
C. for i:=1 to 10 writeln (‘i’);
D. for i:=10 to 1do writeln (‘i’);

mấy bẹn xinh trai,gái đẹp giúp hộ mình nhe😇