Câu 1:
Dòng 1 : Tên chương trình sai vì nó có số ở trc

Dòng 2 : Khai báo thư viện là Uses không phải Use

Dòng 3 : Kiểu dữ liệu số nguyên là integer ko phải interger

Dòng 4 : Begin dư dấu ;

Dòng 5 : Phải để dấu ' bao trùm 'nhap n : '
Dòng 6 : Sửa lại thành Writeln(n,' la so vua nhap');

Dòng 7 :đúng

Dòng cuối : đúng
Câu 2 :
Uses Crt;

Var chieudai,chieurong : integer;

Begin

 Clrscr;

 Write('Nhap chieu dai : '); Readln(chieudai);

 Write('Nhap chieu rong :'); Readln(chieurong);

 Writeln('Dien tich HCN la :',chieudai*chieurong);

 Writeln('Chu vi HCN la :',2*(chieudai+chieurong));

 Readln

End.

Câu 1 :

1. Sai tên chương trình 3so

2. Sai từ khoá khai báo thư viện Use

3. Sai tên kiểu dữ liệu interger

4. Dư dấu chấm phẩy sau từ khoá begin

5. Chưa đưa xâu vào dấu nháy đơn

6. Thiếu dấu phẩy ngăn cách giữa xâu và biến

Câu 2 :

uses crt;

var a, b, s, cv : integer;

begin

clrscr;

write('Nhap chieu dai = '); readln(a);

write('Nhap chieu rong = '); readln(b);

cv := (a + b) * 2;

s := a * b;

writeln('Chu vi hinh chu nhat = ', cv);

writeln('Dien tich hinh chu nhat = ', s);

readln

end.