with Ada.Text_IO;

procedure Hello is
   function bunnyEars(num : Integer) return Integer is
   begin
      if num = 0 then
        return 0;
      else
         return 2*num;
      end if;
   end bunnyEars;

   type Real is digits 5;
   num : Real;

begin
   num := 2.531251251212512131241241241241512124124;
   Ada.Text_IO.Put_Line(Real'Image(num));
   Ada.Text_IO.Put_Line(Integer'Image(bunnyEars(5)));
end Hello;