Program bai_tap;
Uses crt;
Var S,Cv,x,y: real;
Begin
Write ('Nhap chieu dai x=');
Readln (x);
Write ('Nhap chieu rong y=');
Readln (y);
S:= x*y;
Cv:= (x+y)*2;
Writeln ('Dien tich hinh chu nhat la:', S:7:2);
Writeln ('Chu vi hinh chu nhat la:', Cv:7:2);
Readln
End.
#Chạy chương trình: (trong ảnh).