begin

library A1, A5, A15;

real a, y;

real procedure check(y, val1, val2);
real val1, val2, y;
   begin 
   y := 0.5;
   output(30, y); output(30, val1); writetext(30, {: should _ be _ 0.8{cc}});
   y := 1.0;
   output(30, y); output(30, val2); writetext(30, {: should _ be _ 1.0{cc}});
   check := 123456789.10;
   end check;

a := check(y, (y+y)/(1+y×y), (y+y+0.0)/(1.0+y×y));

output(30, a)

end
|