Để tính chu vi và diện tích hình chữ nhật cần biết được chiều dài và chiều rộng hình chữ nhật

Cũng như công thức tính

cv = (d + r)*2

s = d*r

Nên

Chương trình là

Program Cvdtchunhat;

Uses crt;

Var s, cv, d, r: integer;

BEGIN

clrscr;

  Write('Nhap chieu dai :');  Readln(d);

  Write('Nhap chieu rong :');  Readln(r);

  cv:= (d + r)*2;

    s:= d*r;

 Writeln('Chu vi hinh chu nhat la: ', cv);

Writeln('Dien tich hinh chu nhat la: ', s);

Readln;

END.

Khai báo biến a, b, cv, s :

- Var a, b, cv, s : real;

Nhập giá trị của các kích thước a, b :

- Write('Nhap chieu rong, dai = '); readln(a, b);

Gán giá trị cho cv, s :

- Cv := (a + b) * 2; 

- S := a * b;

In giá trị biến cv và s :

- Writeln('Chu vi = ', cv);

- Writeln('Dien tich = ', s);

Chương trình :

program A01;

uses crt;

var a, b, s, cv : integer;

begin

clrscr;

write('Nhap chieu rong, dai = '); readln(a, b);

cv := (a + b) * 2;

s := a * b;

writeln('Chu vi = ', cv);

writeln('Dien tich = ', s);

readln

end.