... DTHinhThang(a, b, h) : Real; Begin DTHinhThang := (a + b) * h / 2; End; (********* Bat dau chuong trinh chinh **********) Begin Write( Canh dai, ngan va cao cua thua ruong thu nhat: ); Readln(a1, ... (ChuNhat, ThuHai, ThuBa, ThuTu, ThuNam, ThuSau, ThuBay); Var Ngay : Thu; Begin Writeln( Chuong trinh doi thu ra so ); For Ngay := ChuNhat to ThuBay do Write(Ord(Ngay)); Readln; End. II....