with Ada.Text_IO;

procedure Main is
   Lessons_Done : Natural := 0;
begin
   Ada.Text_IO.Put_Line ("Ang una kong sesyon ng pag-aaral sa Agila");
   Lessons_Done := Lessons_Done + 1;
   if Lessons_Done = 1 then
      Ada.Text_IO.Put_Line ("Natapos ang isang aralin");
   end if;
end Main;