Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (10.62 KB, 1 trang )
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.