下面是一个简单的例子，展示了如何定义一个包体和主程序，在Ada语言中进行简单的赋值操作：

-- 包体
package Simple_Assignment is
   -- 声明一个整数类型的变量
   X : Integer;
end Simple_Assignment;

-- 主程序
with Ada.Text_IO; use Ada.Text_IO;

procedure Main is
   -- 导入包体
   package SA is new Simple_Assignment;
begin
   -- 赋值
   SA.X := 10;

   -- 打印结果
   Put_Line("The value of X is: " & Integer'Image(SA.X));
end Main;

在该示例中，定义了一个包体Simple_Assignment，其中声明了一个整数类型的变量X。然后，在主程序中，通过with语句导入了包体，并使用new关键字创建了一个该包体的实例SA。接着，通过SA.X进行赋值操作，将整数值10赋给了变量X。最后，使用Put_Line过程打印了变量X的值。

请注意，这只是一个最简单的例子，用于展示基本的赋值操作。在实际应用中，可以根据需求定义更复杂的数据类型和赋值操作。