B1: Nhập vào chiều dài, chiều rộng hình chữ nhật.
B2: Xuất ra giá trị của (chiều dài + chiều rộng) * 2 (Chu vi của hình chữ nhật).
B3: Xuất ra màn hình giá trị của chiều dài * chiều rộng (Diện tích hình chữ nhật).
Chương trình:
Var a, b: Integer;
BEGIN
Readln(a, b);
Writeln('Chu vi: ', (a + b) * 2);
Writeln('Dien tich: ', a * b);
Readln;
END.