Program Tinhdientich;
uses crt;
Var a, b, x, S, CV: real;
Begin
     Write('Nhap chieu dai hinh chu nhat:');
     Readln(a);
     Write('Nhap chieu rong hinh chu nhat:');
     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);

Write('Nhap chieu dai canh hinh vuong:');

     Readln(x);

     S:= x*4;

     CV:= x*x;

Write('Dien tich hinh vuong la:',S);

Write('Chu vi hinh vuong la:',CV:10:2);

Readln
End.

Program hehe;

Uses crt;

Var a,b,c: real;

Begin

Clrscr;

Write('Nhap lan luot chieu dai và chieu rong cua hinh chu nhat:');

Readln(a,b);

Writeln('Dien tich hinh chu nhat:',a*b);

Write('Nhap do dai canh cua hinh vuong:');

Readln(c);

Writeln('Dien tich hinh vuong:',a*a);

Readln;

End.