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] of INTEGER;
  ENDTYPE
  BEGIN
    VAR %% can be empty or completely missing
      x : ARRAY[-3 .. 5] of INTEGER;
      y : mytype;
    ENDVAR
    y[7] := 5;
    x[-3] := y[7] + cons360;
    x[-2] := 0;
    x[-1] := 0;
    x[0] := 0;
    x[1] := 0;
    x[2] := 0;
    x[3] := 0;
    x[4] := 0;
    x[5] := 0;
    x[6] := 0;
    BEGIN
      VAR
        w, x, z: INTEGER;
      ENDVAR
      x := 5;
      WRITE(x);
      WRITESP();
      
    END
    WRITE(x[-3]);
    WRITESP();
    WRITE(y[7]);
    WRITESP();
    y := x;
    y <-> x;
    WRITE(y[1]);
    WRITELN();
  END