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