Cho mình ctlhn nha bạn

Bài tập 6:

Program CT_baitap;

Uses CRT;

Var a,b,tong:real;

Begin

Write('Nhap so a:');

Readln(a);

Writeln('Nhap so b:');

Readln(b);

tong:=a+b;

Writeln('Tong cua hai so a va b la:',tong);

Readln;

End.

Bài tập 7:

(3) Đây là khai báo biến mà sử dụng khai báo hằng

`=>` Sửa: Var cd,cr,dt:integer;

(6) Lệnh nhập sai

`=>` Sửa: Readln(cd);

(7) Thiếu dấu ;

`=>` Sửa: Writeln('Nhap chieu rong:');

(8) Lệnh nhập sai

`=>`Sửa: Readln(cr);

(9) Thiếu dấu : và sai dấu nhân

`=>` Sửa: dt:=cr*cd;

(10) Đóng xâu sai chổ

`=>` Sửa: Writeln('Dien tich hinh chu nhat:',dt);