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;
      i, z : INTEGER;
    ENDVAR
    x[5] := cons360;
    z := x[5];
    IF z > 100
    THEN
      z := 100;
    ELSE
      z := 0;
    ENDIF;
    WRITE(z);
    WRITESP();
    IF z = 0
    THEN
      z := 100;
    ENDIF;
    WRITE(z);
    WRITELN();
  END