with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Solve is
   A : Integer;
   B : Integer;
begin
   Get (A);
   Get (B);
   if A = B then
      Put_Line ("Draw");
   elsif A = 1 then
      Put_Line ("Alice");
   elsif B = 1 then
      Put_Line ("Bob");
   elsif A > B then
      Put_Line ("Alice");
   else
      Put_Line ("Bob");
   end if;
end Solve;