viết chương trình nhập vào 2 cạnh a,b của hình chữ nhật từ bàn phím , tính đặc điểm của hình chữ nhật đó và in kết quả ra màn hình

$#QLinkVN$

CẤU TRÚC CHƯƠNG TRÌNH CỤ THỂ NHƯ SAU:

program HCN;
uses crt;
var a,b: integer;
begin
clrscr;
writeln('Nhap chieu dai cua HCN: '); readln(a);
writeln('Nhap chieu rong cua HCN: '); readln(b);
delay(3000);
writeln('Chu vi cua HCN do la: ',(a+b)/2:0:2);
writeln('Dien tich cua cua HCN do la: ',a*b);
readln;
end.

program hcn;

var a,b,s,p : real;

begin

write('Nhap do dai:'); Readln(a);

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

S := a*b; p := (a+b)*2;

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

Writeln('Chu vi hinh chu nhat la:',p:10:2);

readln;

end.