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