以下是一个示例Ada程序，用于检测行尾是否包含特定字符：

with Ada.Text_IO; use Ada.Text_IO;

procedure Check_Line_Tail is
   Line : String(1..80); -- 定义一个字符串变量，用于存储输入的行
   Tail : String(1..2) := ""; -- 定义一个字符串变量，用于存储行尾的两个字符
   
begin
   Put("请输入一行文本: ");
   Get_Line(Item => Line); -- 从用户输入中获取一行文本
   
   if Line'Last > 1 then -- 确保行长度大于1，否则无法获取行尾字符
      Tail := Line(Line'Last-1..Line'Last); -- 获取行尾的两个字符
   end if;
   
   if Tail = "艹" then -- 检测行尾是否包含特定字符
      Put_Line("行尾包含特定字符。");
   else
      Put_Line("行尾不包含特定字符。");
   end if;
   
end Check_Line_Tail;

在此示例中，我们使用了Ada.Text_IO包来进行输入和输出操作。程序首先提示用户输入一行文本，然后使用Get_Line函数从用户输入中获取一行文本并存储到Line变量中。然后，我们检查Line的长度是否大于1，如果是，则获取Line的倒数第二个和倒数第一个字符，存储到Tail变量中。最后，我们检测Tail是否等于特定字符，如果是，则输出"行尾包含特定字符"，否则输出"行尾不包含特定字符"。