Ada with TEXT_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO; use TEXT_IO, Ada.Integer_Text_IO, Ada.Float_Text_IO; procedure Ada0101 is begin Put(3 + 5); New_Line; Put(3 + 5, Width=> 0); New_Line; Put(3 * 5, Width=> 0); New_Line; Put(3 ** 5, W…