Cho đoạn chương trình sau. Em hãy tìm lỗi sai và sửa lại, sắp xếp  cho đúng?

                        Tính giá trị biểu thức: 12.x – 30 + 12

              Uses CRT:

          Clrscr.

            Begin

           Writeln(‘Gia tri bieu thuc 12.x – 30 + 12 = ’ , 12 *x – 30 + 12: 5:3)

           Program Tinh _gia_tri_bieu_thuc;

            Var x: Real;

            Write(‘Nhap gia tri x:  ’); readln(x);

            Readln;

            End.

Bài tập 2: Viết chương trình nhập số b. In thông báo, 3 là ước số của b hay 3 không là ước số của b:

Dưới đây là một chương trình viết trong Pascal:

                             program  CT_Dau_tien ;

                             Uses  crt ;

                             begin

                                      writeln ( ‘Toi la Turbo Pascal’ )

                             end.

Tên chương trình là:

   A begin.                  B. end                          C. writeln                                  D. crt

Tìm và sửa lỗi trong chương trình pascal sau:

               Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

        write('Nhap so n = '); readln(n);

        i := l; t := 0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;

      write('Tong = ', t);

             Readln;

             end.