Program chuvidientich;
Uses crt;
Var P,S,a,b : real;
Begin
Clrscr;
Write(' nhap chieu dau cua hinh chu nhat la',a);
Readln(a);
Write(' nhap chieu rong cua hinh chu nhat la',b) ;
Readln(b);
P:=( a+b)*2;
S:=a*b;
Write(' chu vi cua hinh chu nhat la',P);
Readln(P);
Write(' dien tich cua hinh chu nhat la',S);
Readln(S);
Readln
End.