*HÌNH CHỮ NHẬT
Uses crt;
Var s, p, a, b: real;
Begin
Clrscr;
Write('Nhap chieu dai HCN: '); readln(a);
Write('Nhap chieu rong HCN: '); readln(b);
s:=a*b;
p:=(a+b)*2;
Writeln('Dien tich HCN la: ',s1:2:0);
Writeln('Chu vi HCN la: ',p1:2:0);
Readln
End.
*HÌNH VUÔNG
Uses crt;
Var a, s, p: real;
Begin
Clrscr;
Write('Nhap canh a = '); readln(a);
s:=a*a;
p:=a*4;
Writeln('Chu vi la: ',p:0:2);
Writeln('Dien tich la: ',s:0:2);
Readln
End.