Viết ctrinh nhập vào biểu chieu dai và chiều rộng của hinh chữ nhật. Thực hiện tính dính tich và chu vi hình chu nhat đó.
........; {khai báo....}
........; { khai báo thu vien màn hình CRT }
.......; { khai báo biến cdai, còng, dtich, chi hinh chu nhat}
Begin {..………}
........; {lenh lao sach màn hình}
Writeln('........'); {xuat thông báo'....' fa màn hình}
.....(.....); { nhập dữ liệu từ bàn phím vào biến....}
If (....)....(....) then {nếu cdai=0 và crộg=0 thì k thực hiện tính dtich và cvi}
...... :=........; { gán gtri...vao biến.....}
...... :=.....; { gán gtri ....vao bien...}
Writeln('....',.....,'.....',.....); { xuất thông báo'......' ra màn hình}
End; {tại s có cặp lệnh"begin...end" ở đây?...}
....... { dừng màn hình}
End. {..........}