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 = INTEGER;
  ENDTYPE
  
  BEGIN
    VAR %% can be empty or completely missing
      x : INTEGER;
      y : mytype;
    ENDVAR
    x := cons360;
    WRITE(x);
    WRITESP();
    y := x + 5;
    WRITE(y);
    WRITELN();
    
  END