Program baitap;
Uses crt;
Var a,b,h:real;
Begin
Clrscr;
Writeln('Nhap chieu dai:'); Readln(a);
Writeln('Nhap chieu rong:'); Readln(b);
Writeln('Nhap chieu cao:'); Readln(h);
Writeln('Chu vi hinh hop chu nhat:',4*(a+b+h):5:2);
Writeln('Chu vi hinh hop chu nhat:',2*h*(a+b):5:2);
Readln
End.