Hãy sắp xếp đoạn chương trình sau cho đúng? 1 Begin 2 Write('Hay nhap so A: '); readln(A); 3 Program BT; 4 End. 5 Uses crt; 6 Clrscr; 7 Readln; 8 Var A: integer; 9 If A mod 3 = 0 then Write('A chia het cho 3');