Bài 1:

Program BTT;
Uses crt;
Var aa, ba, ab, bb, Sa, Sb: extended;
Begin
        Clrscr;
        Write('Nhap chieu dai va chieu rong manh dat cua An: '); Readln(aa, ba);
        Write('Nhap chieu dai va chieu rong manh dat cua Binh: '); Readln(ab, bb);
        Sa:=aa*ba;
        Sb:=ab*bb;

        Writeln('Dien tich manh dat cua An la: ',Sa:0:2);
        Writeln('Dien tich manh dat cua Binh la: ',Sb:0:2);

        If Sa>Sb then Write('=> Dien tich cua An lon hon')
        Else If Sa<Sb then Write('=> Dien tich cua Binh lon hon')
        Else Write('=> Bang nhau');

        Readln
End.