Program HCN; Uses crt; Var a,b,C,S:real; Begin Write(‘nhap cac gia tri tu ban phim:‘); Readln(a,b); C:=a*2+b*2; S:=a*b; Writeln(‘Dien tich hinh chu nhat la:15:3’); Writeln(‘Chu vi hinh chu nhat la:15:3’); End.