a.for i:=1 to 10;do x:=x+1;

-> lệnh sai vì sau "to 10" không có dấu '' 

For<biến đếm > := <giá trị đầu> to <giá trị cuối> do <câu lệnh>;

Sửa lại:for i:=1 to 10 do x:=x+1;

b.for i:=10 to 1 do x:=x+1;

-> lệnh sai vì for i:=10 to 1 giá trị đầu phải nhỏ hơn giá trị cuối(10>1) nên  không lặp được.

Sửa for i:=1 to 10 do x:=x+1;

c.while i:=1 do t=10;

-> lệnh sai phép gán giá trị cho biến VD: x:=1

t=10(sai) thiếu dấu ':'  

Sửa lại:

while i:=1 do t:=10;

d.while a<=b;do write('b lon hon a');

-> lệnh sai vì Sau While a<=b không có ''(While <điều kiện> do <câu lệnh>) 

Sửa lại:

while a<=b do write('b lon hon a');

Program bai tap 1; -> Program Bai_tap_1;

Uses CRT -> Uses CRT;

Var a;=integen; -> Var a: integer;

b;=real; -> b: real;

Constc;=3; -> Const c=3;

Begin

a:=200;

b:=a/c;

Readln;

End -> End.

Program bai tap 1; -> Program Bai_tap_1; Uses CRT -> Uses CRT; Var a;=integen; -> Var a: integer; b;=real; -> b: real; Constc;=3; -> Const c=3; Begin a:=200; b:=a/c;

sai

if x>5 then a:=b

else m:=n;

Câu 1:

-Đánh răng rửa mặt mỗi ngày

-Đi học

-Đi ngủ

Câu 2: 

a) Sai

Sửa lại: for i:=10 downto 1 do write('a');

b) Đúng

c) Đúng

Câu 3: 

Lặp n-1+1=n(lần)

Câu 4: 

S=15

Câu 5: 

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

for i:=1 to 10 do

  s:=s+i;

writeln('Tong cua 10 so tu nhien dau tien la: ',s);

readln;

end.

a: Sai ở chỗ x=y

Sửa lại: x:=y;

b: Sai ở chỗ dấu chấm phẩy sau y>10

Sửa lại là bỏ dấu chấm phẩy

c: Sai ở chỗ có dấu chấm phẩy trước else

Sửa lại là bỏ dấu chấm phẩy

d: 

Sai ở chỗ dấu chấm phẩy sau x>=7

Sửa lại là bỏ dấu chấm phẩy

1. fascinated => fascinating

2. I was embarrassed .....

3. bored => boring

4. welcoming => welcomed

5. bored => boring

6. was => bỏ

7. confusing => confused

8. Đ

1) Sai --> Program Chuong_trinh;

2) Đúng

3) Đúng

4) Đúng

5) Sai --> s:=s+1;

6) Sai -->i:=1+1;

7) Sai --> End;

8 và 9) Sai --> Writeln(s); và Readln;

10) Sai --> End.

Đúng thì like cho mình nha :)))