uses crt;
var a, b, bankinh, dtcn, dtht: real;
Begin
clrscr;
write('Nhap chieu dai hinh chu nhat, a = '); readln(a);
write('Nhap chieu rong hinh chu nhat, b = '); readln(b);
write('Nhap ban kinh duong tron, bankinh = : '); readln(bankinh);
dtcn:=a*b;
dtht:=bankinh*bankinh*pi;
if dtcn>dtht then writeln('Dien tich hinh chu nhat lon hon dien tich hinh tron') else
if dtcn<dtht then writeln('Dien tich hinh chu nhat nho hon dien tich hinh tron') else
writeln('Dien tich 2 hinh bang nhau');
readln
end.
