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.

Uses crt;

Var d, r, bk, sn, st: real;

Begin

     Clrscr;

     Write('Nhap chieu dai HCN: '); readln(d);

     Write('Nhap chieu rong HCN: '); readln(r);

     Write('Nhap ban kinh duong tron: '); readln(bk);

     sn:=d*r;

     st:=sqr(bk)*3.14;

     If sn<st then writeln('Dien tich hinh chu nhat nho hon dien tich hinh tron');

     If sn>st then writeln('Dien tich hinh chu nhat lon hon dien tich hinh tron')

     Else writeln('Dien tich 2 hinh bang nhau');

Readln

End.