Nhập vào chiều dài và chiều rộng của hình chữ nhật từ bàn phím. Sau đó in ra màn hình diện tích và chu vi hình chữ nhật đó. Lưu ý làm tròn đến hai chữ số thập phân đối với chu vi và diện tích.

program Tin_hoc;

uses crt;

var cd,cr,cv,dt:real;

begin

clrscr;

write('Chieu dai = ');readln(cd);

write('Chieu rong = ');readln(cr);

cv:=(cd+cr)*2;

dt:=cd*cr;

writeln('Chu vi cua hinh chu nhat la: ',cv:0:2);

writeln('Dien tich cua hinh chu nhat la: ',dt:0:2);

readln;

end. 

Program BTH;
uses crt;
var a,b:real;
BEgin
        clrscr;
        Write('Nhap chieu dai: ');readln(a);
        Write('Nhap chieu rong: ');readln(b);
        writeln('Chu vi hinh chu nhat la: ',(a+b)*2:4:2);
        writeln('Dien tich hinh chu nhat la: ',a*b:4:2);
        readln;
end.