PROGRAM program_name
          VAR %% testing of the statement of no ';' 
          x, y, z: INTEGER
          a : REAL;
          ENDVAR
          PROCEDURE procedure_name_1
              VAR
              a, aa: REAL;
              ENDVAR
	      PROCEDURE procedure_name_1_1
              %% testing of no VAR
              ENDVAR
	      %% no PROCEDURE def
              BEGIN
                %%...
              END
          BEGIN
              a := 33.33;
              %% testing of spaces of functions
              WRITE( a );
              WRITELN () ;
          END
          PROCEDURE procedure_name_2
	  %% no VAR and PROCEDURE def
          BEGIN
             %%....
	  END
       BEGIN
          READ(y);
          %% testing of errors in expression
          x := (y + * 4) - 5;
            BEGIN
                VAR
                  w, x, z: REAL;
                ENDVAR
                x := 2.0;
                WRITE(x);
                WRITESP();
                %% testing of undefined procedure call
                procedure_name_3();
                WRITE(y);
                WRITELN();
            END
          WRITE(y );
          WRITESP( );
          WRITE(x);
          WRITELN( ) ;
       END