with Ada.Text_IO, Rationale_Zahlen;
use Ada.Text_IO, Rationale_Zahlen;
procedure Rationale_Zahlen_Test is
   A, B : Rationale_Zahl;
begin
   Get (A);
   New_Line;
   Put (A);
   New_Line;
   Put_Line ("----------");
   Get (B);
   New_Line;


   Put (A + B);
   New_Line;
   Put (A - B);
   New_Line;
   Put (A * B);
   New_Line;
   Put (A / B);

   declare
      SM, BI, EQ : Boolean;
   begin
      SM := A < B;
      BI := A > B;
      EQ := A = B;

      New_Line;
      Put_Line (Boolean'Image (SM));
      Put_Line (Boolean'Image (BI));
      Put_Line (Boolean'Image (EQ));
   end;
end Rationale_Zahlen_Test;