uses crt;

var td,tgai:longint;

dt,d,r,k,cv,t:real;

begin

clrscr;

write('nhap chieu dai');readln(d);

write('nhap chieu rong');readln(r);

dt:=d*r;

cv:=(d+r)*2;

t:=dt*150000;

k:=cv*9000;

writeln('dien tich',dt:5:2);

writeln('tien mua dat la',t:5:2);

writeln('tien mua kem gai la',k:5:2);

readln

end.

uses crt;

var a,b:real;

begin

write('chieu dai cua manh dat la:');readln(a);

write('chieu rong cua manh dat la:');readln(b);

write('so tien bac Hung can phai tra de mua dat la:',a*b*1500000:2:2);

write('so tien bac Hung can phai mua day chi gai la:',(a+b)*2*9000:2:2);

readln

end.