Program baitap;

Uses crt;

Var a,b,Chv,Chcn,CA,Shv,Shcn,SA:real;

Begin

Clrscr;

Write('Nhap chieu rong cua hinh chu nhat:'); Readln(a);

b:=2*a;

Writeln('Chieu dai hinh chu nhat:',b);

Writeln('Do dai canh hinh vuong:',a);

Chv:=4*a;

Chcn:=(a+b)*2;

CA:=8*a;

Shv:=a*a;

Shcn:=a*b;

SA:=Shv+Shcn;

Writeln('Chu vi hinh vuong:',Chv);

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

Writeln('Chu vi hinh A:',CA);

Writeln('Dien tich hinh vuong:',Shv);

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

Writeln('Dien tich hinh A:',SA);

Readln

End.

uses crt;
var a : integer;
begin
clrscr;
write('nhap canh a :');readln(a);
writeln('chu vi hinh vuong :', a * 4);
writeln('chu vi hinh chu nhat :', (2 * a + a) * 2);
writeln('chu vi hinh A :', 2 * a * 4);
writeln('dien tich hinh vuong :', a * a);
writeln('dien tich hinh chu nhat :', (2 * a * a));
writeln('dien tich hinh A :', (a * a) + (2 * a * a));
readln
end.