PROGRAM program_name
       BEGIN
          READ(y);
          x := (y + 3 * 4) - 5
            BEGIN
                x := 2;
                WRITE(x);
                WRITESP();
                WRITE(y);
                WRITELN();
            END
          WRITE(y);
          WRITESP();
          WRITE(x);
          WRITELN();
       END