(43 . 6)(43 . 8)
16 C : WBool := 0;
17
18 begin
19 Put_Line("~~~ Ch. 1 : Add, Sub ~~~");
20 New_Line;
21
22 Put_Line("X =");
23 Dump(X);
(63 . 6)(65 . 7)
25 Dump(Z);
26 New_Line;
27 Put_Line("C = " & WBool'Image(C));
28 New_Line;
29
30 end Demo_Add_Sub;
31