entry ceil,floor;
begin "ceil"
   internal simple integer procedure ceil (real x);
   begin "ceil"
      integer temp;
      temp := x;
      if temp = x then
         return(temp)
      else 
         return(temp+1);
   end "ceil";

   internal simple integer procedure floor(real x);
   begin "floor"
      integer temp;
      temp := x;
      return(temp);
   end "floor";
end "ceil"