Cho chương trình sau (bằng Turbo Pascal)

Câu 6: Cho chương trình sau (bằng Turbo Pascal):
      Begin {1}
      Clrscr;  {2}
Var i, t:integer; {3}
i:=1; t:=0; {4}
     While i<20 do {5}
     Write(‘Tong cac so chan nho hon 20 la:’, t ); {6}
Begin {7}
          If i mod 2 =0 then {8}
            t:=t + i; {9}
i:=i+1; {10}
        end;   {11}
      Uses crt; {12}
End. {13}   
Readln {14}
a. Em hãy sắp xếp lại vị trí của các câu lệnh trong chương trình trên để được chương trình đúng?
b. Hãy cho biết công dụng của chương trình trên?