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;
          z := (x + y) * (x + y);
            BEGIN
                VAR
                  x, y: INTEGER;
                ENDVAR
                WRITE(x);
                WRITESP();
                WRITE(y);
                WRITESP();
                WRITE(z);
                WRITELN();
                READ(x);
                y := (1 + 2 * (3 + 4 * z));
                z := 10;
                WRITE(x);
                WRITESP();
                WRITE(y);
                WRITESP();
                WRITE(z);
                WRITELN();
            END
       
          WRITE(x);
          WRITESP();
          WRITE(y);
          WRITESP();
          WRITE(z);
          WRITELN();
       END