with Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;
 use Ada.Text_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO;

procedure main is
   A: Integer;
   B: Integer;
begin
   get(A);
   get(B);
   if (B * 2 >= A) then put(0, 0);
   else put(A - B * 2, 0);
   end if;
end main;