-- -- This is a test -- begin read (a, b); write (a, b); if a == b then write (a); end if; if a == 99999.0 then write (a); c := 1.0 + a; write (c); end if; write (a, b ); write (c); write ( a / b, a * 2.0); write ( b - 3.0, -c ); write ( -(a - b) ); end