Bài tập 1:

Mình đánh dấu theo số thứ tự từ trên xuống nha!!

(1) Dư dấu ":"

⇒Sửa: Const pi=3.1416;

(2) Thiếu dấu ";" ở cuối dòng

⇒Sửa: Var cv,dt:integer;

(5) Thiếu dấu ":" ở phép gán và thiếu dấu ";" ở cuối dòng

⇒Sửa: R:=5.5;

(6),(7) Đều thiếu dấu ":" ở phép gán

⇒Sửa: Cv:=2*pi*r;

            Dt:=pi*r*r;

(8),(9) Câu lệnh được ghi như vậy sẽ không đưa ra màn hình được các giá trị của biến cv và dt

⇒Sửa: Writeln('chu vi la:',cv);

           Writeln('dien tich la:',dt);

Bài tập 2:

Program baitap;

Uses crt;

Var a,h:integer;

Begin

Clrscr;

Write('a='); Readln(a);

Write('h='); Readn(h);

Writeln('Dien tich cua hinh tam giac:', a*h/2:9:3);

Readln

End.

B1. Lỗi sai Writeln (' chu vi la : = cv ');

                   Writeln (' dien tich la : = dt ' );

nếu viết như này máy tính chỉ in ra chữ trong ' ' chứ không in ra kết quả của nó 

⇒ sửa lại : Writeln (' chu vi la : ', cv ' );

  .                Writeln (' dien tich la : ', dt ' );

B2. 

Var   S,a,h : interger;

Begin

           clrscr;

           S := $\frac{a*h}{2}$ ;

            Writeln (' dien tich hvuong la : ', S ');

            Readln;

End.