{$codepage UTF8} TYPE TMatriz3x3=array [1..3,1..3] of real; VAR MatrizIdentidad : TMatriz3x3 = ((1,0,0), (0,1,0), (0,0,1)); i,j:byte; BEGIN for i:= 1 to 3 do Begin for j:=1 to 3 do Write(MatrizIdentidad[i,j]:3:0); Writeln End; END.