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, y : ARRAY[1 .. 10] of INTEGER;
      z : mytype;
    ENDVAR
    y[7] := 5;
    x[1] := 0;
    x[2] := y[7] + cons360;
    x[3] := 0;
    x[4] := 0;
    x[5] := 0;
    x[6] := 0;
    x[7] := 0;
    x[8] := 0;
    x[9] := 0;
    x[10] := 0;
    BEGIN
      VAR
        w, x, z: INTEGER;
      ENDVAR
      x := 5;
      WRITE(x);
      WRITESP();
      
    END
    WRITE(x[2]);
    WRITESP();
    WRITE(y[7]);
    WRITESP();
    x <-> y;
    WRITE(y[2]);
    WRITESP();
    WRITE(x[7]);
    WRITELN();
  END