Bài 1a:

Theo thứ tự: 4→6→1→3→8→7→2→5

Sửa:

<dòng 1> Sai từ khóa Begin

`=>` Begin

<dòng 4> Sai từ khóa program

`=>` Program bt;

<dòng 6> Sai kiểu dữ liệu

`=>` Var a:word;

<dòng 7> Sai từ lệnh Writeln và in ra giá trị a nên không có dấu nháy đơn

`=>` Writeln(a)

<dòng 8> Sai lệnh Read

`=>` Read(a);

Bài 1b:

Theo thứ tự: 5→9→8→2→1→3→4→7→6

Sửa:

<dòng 2>Sai từ khóa begin

`=>` Begin

<dòng 4> Sai lệnh readln

`=>` Readln(N);

<dòng 5> Sai từ khóa program

`=>` Program bt2;

<dòng 7> giá trị đầu phải bé hơn giá trị cuối

`=>` For i:=1 to N do Writeln('Tin hoc 11');

<dòng 8> Sai kiểu dữ liệu

`=>` Var i,N:integer;

<dòng 9> Sai từ kháo Uses 

`=>` Uses crt;

a. sắp xếp 46138725

lỗi sai : Begen -> Begin

            Progrom   bt -> Progam

            Var  a:world -> Var a: word

            Writer('a') -> Write (*a*)

            Writeln('Nhap a') -> Writeln (*Nhap a*)

b. sắp xếp 598213476

lỗi sai : Begun -> Begin

            Readlm -> Readln

            Progrom bt2 -> Progam bt2

            For i:=N to 1 do Writerln('Tin hoc 11') -->For i:=N downto 1 do Writeln('Tin hoc 11')

            Var i,N: Interger -> Var i,N: Integer

            Use Crt -> Uses Crt