PROGRAM program_name
          VAR %% beginning of variable declarations, required even no var's
          x, y, z: INTEGER;
          a : REAL;
          ENDVAR
          PROCEDURE procedure_name_1
              VAR
              a, aa: REAL;
              ENDVAR
	      PROCEDURE procedure_name_1_1
              VAR
                %%...
              ENDVAR
	      %% no PROCEDURE def
              BEGIN
                %%...
              END
          BEGIN
              a := 33.33;
              WRITE(a);
              WRITELN();
          END
          PROCEDURE procedure_name_2
	  %% no VAR and PROCEDURE def
          BEGIN
             %%....
	  END
       BEGIN
          READ(y);
          x := (y + 3 * 4) - 5;
            BEGIN
                VAR
                  w, x, z: REAL;
                ENDVAR
                x := 2.0;
                WRITE(x);
                WRITESP();
                procedure_name_1();
                WRITE(y);
                WRITELN();
            END
          WRITE(y );
          WRITESP( );
          WRITE(x);
          WRITELN( ) ;
       END