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