with Ada.Text_IO;

procedure Main is
   Lessons_Done : Natural := 0;
begin
   Ada.Text_IO.Put_Line ("Ang una nakong sesyon sa pagtuon sa Agila");
   Lessons_Done := Lessons_Done + 1;
   if Lessons_Done = 1 then
      Ada.Text_IO.Put_Line ("Nahuman ang usa ka leksiyon");
   end if;
end Main;