var x : real, y : real ; 
begin 
assume x >= 0.000000 and x <= 0.500000; 
if (x<=0.125000) then 
  y = x - (x*x)/2 + (x*x*x)/3 - (x*x*x*x)/4; 
  else 
if (x<=0.250000) then 
  y = x - (x*x)/2 + (x*x*x)/3 - (x*x*x*x)/4; 
  else 
if (x<=0.375000) then 
  y = x - (x*x)/2 + (x*x*x)/3 - (x*x*x*x)/4; 
  else 
  y = x - (x*x)/2 + (x*x*x)/3 - (x*x*x*x)/4; 
  endif;
endif;
endif;
end