TK
program bt;
uses crt;
var a,b,S,P:real;
begin
clrscr;
writeln('hay nhap chieu dai hinh chu nhat: ');readln(a);
writeln('hay nhap chieu rong hinh chu nhat: ');readln(b);
S:=a*b;
P:=(a+b)*2;
writeln('dien tich hinh chu nhat la: ',S);
writeln('chu vi hinh chu nhat la: ',P);
readln;
end.