1(* 2 * Copyright (c) 1980, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.redist.c% 6 * 7 * @(#)simple.p 8.1 (Berkeley) 06/06/93 8 *) 9 10program pdxtest( output ); 11var 12 x : real; 13begin 14 x := 0.5; 15 x := 0.0; 16 writeln( '17.0/x ', 17.0/x ); 17end. 18