hãy viết chương trình nhập vào 2 cạnh của hình chữ nhật . sau đó tính chu vi và diện tích rồi hiểu thị ra màn hình

Uses crt;

Var a,b,cv,s:Longint;

Begin

Clrscr;

Write(‘Nhap chieu dai: ‘);readln(a);

Write(‘Nhap chieu rong: ‘);readln(b);

Cv:=(a+b)*2;

S:=a*b;

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

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

Readln

End.