PROGRAM program_name
          VAR %% beginning of variable declarations, required even no var's
          x, y, z: INTEGER;
          ENDVAR
       BEGIN
          READ(y);
          x := (y + 3 * 4) - 5
            BEGIN
                x := 2;
                WRITE(x);
                WRITESP();
                WRITE(y);
                WRITELN();
            END_BLOCK
          WRITE(y);
          WRITESP();
          WRITE(x);
          WRITELN();
       END_PROG