Để 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.

Program giai;

Uses crt;

Var dt,cv, a, b: integer;

Begin

clrscr;

Write('Nhap a :');Readln(a);

Write('Nhap b :');Readln(b);

cv:=(a+b)*2;

dt:=d*r;

Writeln('Chu vi ', cv);

Writeln('Dien tich ',dt);

Readln;

End.