PROGRAM program_name
       VAR %% beginning of variable declarations, required even no var's
          1x, z: REAL;
       BEGIN
          READ(y);
          1x := (y + 3.0 * 4.0) - 5.0;
          WRITE(y);
          WRITESP();
          WRITE(1x);
          WRITELN();
       END