uses crt;

var a, b, c, s1, s2 : integer;

begin

clrscr;

write('nhap chieu dai va chieu rong hinh chu nhat : ');readln(a, b);

write('nhap canh hinh vuong : ');readln(c);

s1 := a * b; s2 := c * a;

writeln('dien tich hinh chu nhat : ',s1);

writeln('dien tich hinh vuong: ',s2);

readln

end.

Viết chương trình tính chu vi và diện tích của hình chữ nhật có chiều dài hai cạnh
là a, b (được nhập từ bàn phím).
a. Hướng dẫn:
- Nhập hai cạnh vào hai biến a, b.
- Chu vi hình chữ nhật bằng 2*(a+b); Diện tích hình chữ nhật bằng a*b.
b. Mã chương trình:
Program Chu_nhat;
uses crt;
Var a, b, S, CV: real;
Begin
Write('Nhap chieu dai:'); readln(a);
Write('Nhap chieu rong:'); readln(b);
S := a*b;
CV := (a+b)*2;
Writeln('Dien tich hinh chu nhat la:',S);
Writeln('Chu vi hinh chu nhat la:',CV:10:2);
readln
end.