PROGRAM main
  CONST %% can be empty or completely missing
    cons360 = 360; %% a legal name on the left, a legal constant on the right
    myfloat = 3.6;
  ENDCONST
  TYPE %% can be empty or completely missing
    mytype = ARRAY[1..10, 1..10] of INTEGER;
  ENDTYPE
  BEGIN
    VAR %% can be empty or completely missing
      x : ARRAY[-4 .. 5, -4 .. 5] of INTEGER;
      y : mytype;
    ENDVAR
    y[7, 5] := 10;
    x[-3, 0] := y[7, 5];
    
    BEGIN
      VAR
        w, x, z: INTEGER;
      ENDVAR
      x := 5;
      WRITE(x);
      WRITESP();
      
    END
    WRITE(x[-3, 0]);
    WRITESP();
    WRITE(y[7, 5]);
    WRITESP();
    WRITE(y[1, 1]);
    WRITELN();
  END