program dien_tich_hinh_chu_nhat; // khai báo tên bài : dien_tich_hinh_chu_nhat
uses crt;   // khai báo thư viện 
var d,r,s:real; // khai báo các biến sử dụng trong chương trình : kiểu dữ liệu real
begin // bắt đầu chương trình
writeln('chieu dai la'); //   In ra màn hình : chieu dai la
readln(d);                   //           nhập vào biến d               
writeln('chieu rong la'); // In ra màn hình : chieu rong la 
readln(r);                       //      nhập vào biến r
s:=d*r;                      // gán biến s := d*r (công thức tính diện tích hình chữ nhật)
writeln('dien tich hinh chu nhat la:',s:10:2);  // In ra màn hình dòng chữ : dien tich hinh chu nhat la: <kết quả> :10 : 2;  //

:10 quy định độ rộng in số

:2 chỉ số chữ số thập phân trong kết quả
readln; // dừng màn hình lại để xem kết quả.
end. // kết thúc chương trình.

program dien_tich_hinh_chu_nhat;{ khai báo tên chương trình}

uses crt;

var d,r,s:real; khai báo biến

begin 

writeln('chieu dai la'); thông báo nhập chiều dài

readln(d); nhập chiều dài 

writeln('chieu rong la');thông báo nhập chiều rộng

readln(r); nhập chiều rộng

s:=d*r; gán giá trị s+d*r

writeln('dien tich hinh chu nhat la:',s:10:2); thông báo kết quả dieẹn tích 

readln; dừng chương trình 

end. từ định hướng