在Ada中，子程序声明部分的计算顺序是从上到下的。这意味着在声明一个子程序之前，它所调用的子程序必须已经声明。

以下是一个示例代码，演示了Ada子程序声明部分的计算顺序：

with Ada.Text_IO;

procedure Main is
   -- 子程序声明部分的计算顺序
   procedure Print_Message;
   procedure Print_Welcome;

   -- 子程序实现部分
   procedure Print_Message is
   begin
      Ada.Text_IO.Put_Line("This is a message.");
   end Print_Message;

   procedure Print_Welcome is
   begin
      Ada.Text_IO.Put_Line("Welcome to Ada programming!");
   end Print_Welcome;
begin
   -- 调用子程序
   Print_Message;
   Print_Welcome;
end Main;

在上面的代码中，我们首先声明了两个子程序Print_Message和Print_Welcome，然后在主程序中调用了这两个子程序。注意，子程序的声明部分出现在子程序实现部分之前。

当程序运行时，它将首先执行Print_Message子程序，然后执行Print_Welcome子程序。输出将是：

This is a message.
Welcome to Ada programming!

这个例子演示了Ada中子程序声明部分的计算顺序。确保在声明一个子程序之前，它所调用的子程序已经声明是很重要的，否则编译器将产生错误。