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