a.

Program   DT  hinh vuong   // Đặt tên sai, thiếu ";"   >>>   Program DT_hinh_vuong 
Uses crt                                 // Thiếu ";"  >>>  Uses crt; 
Var   a, S: Integer ;  
Begin  
   clrscr;
   writeln(‘nhap do dai canh hinh vuong:’);
   readln(A)   // Thiếu ";"    >>>     readln(A);
   S:=a x a     //  Sai quy tắc phép toán trong Pascal, thiếu ";"   >>>  S:=a*a ;
writeln(‘dien tich hinh vuong : ’,S); 
readln // Thiếu ";"   >>>   readln;
End // Thiếu "."    >>>  End.

b.

// thiếu khai báo tên CT >>> program ct;

// thiếu khai báo thư viện  >>> uses crt;

// thiếu khai báo biến >>> var R,C,S: real;

// thiếu khai báo hằng  >>>  const pi=3.14;

Begingin  // Cú pháp từ khóa sai  >>>  Begin

Clrscr;
  Writeln (‘nhap ban kinh R:=’)  // Thiếu ";" >>> Writeln (‘nhap ban kinh R:=’);
Readln(R);
C:=2 x pi x R  // Sai quy tắc phép toán trong Pascal, thiếu ";" >>> C:=2*pi*R ;
S:=R*R*pi  // thiếu ";"   >>> S:=R*R*pi ;
Writeln(‘Chu vi hinh tron la:’,C:8:2);
Writeln(‘Dien tich hinh tron la:’,S:8:2);
Readln;
End  // Thiếu "."    >>>  End.

_________________

Học tốt, thi tốt nha, 10 điểm!!!!

Câu 4. Cho đoạn chương trình dưới đây. Hãy chỉ ra những lỗi sai và sửa lại cho đúng.
a. Chương trình 1.
Program DT_hinh vuong;
Uses crt;
Var   a, S: Integer ;      
Begin  
clrscr;
writeln(‘nhap do dai canh hinh vuong:’);
readln(A) ;
S:=a*a ;
writeln(‘dien tich hinh vuong : ’,S); 
readln 
End.
b. Chương trình 2.
Begin
Clrscr;
Writeln (‘nhap ban kinh R:=’);
Readln(R);
C:=2 * pi * R;
S:=R*R*pi;
Writeln(‘Chu vi hinh tron la:’,C:8:2);
Writeln(‘Dien tich hinh tron la:’,S:8:2);
Readln;
End.