{$codepage UTF8} TYPE Productos = (ProdA,ProdB,ProdC); Trimestres = (Trim1,Trim2,Trim3,Trim4); VAR VentasPorTrimestre: array [Productos,Trimestres] of real; BEGIN VentasPorTrimestre[ProdB,Trim3]:=1425; Writeln(VentasPorTrimestre[ProdB,Trim3]:10:3) END.