... tao thanh mot tam giac. ); If (a=b) and (b=c) then write( Day la tam giac deu. ); If (a=b) or (a=c) or (b=c) then write( Day la tam giac can. ); p := (a + b + c) / 2; s := SQRT(p ... ). 4 Vê dủ: Type Days = (Sun, Mon, Tue, Wed, Thu, Fri, Sat); Viec = (DiHoc, LamBai, ThiNghiem, Nghi); Khi âọ, ta cọ thãø khai bạo biãún nhỉ sau: Var HomQua, HomNay : Days; Lam : Viec; ... thióỷu ồớ caùc phỏửn sau. Vờ duỷ mọỹt caùch õóứ khai baùo mọỹt kióứu dổợ lióỷu tổỷ taỷo: Type Day = Array [1 7] of String[8]; - Var: Tổỡ khoaù duỡng õóứ khai baùo caùc bióỳn sọỳ õổồỹc sổớ...