PROGRAM P;

TYPE A = ARRAY 100 OF INTEGER;
TYPE B = ARRAY 20 OF A;

VAR x : B;
VAR i : INTEGER;
VAR j : INTEGER;
BEGIN
   i := 19; j := 56;
   x[i][j] := 45;
   WRITE x[i][j] - 45; WRITELN;
END.
