with Ada.Text_IO;

procedure Main is
   Lessons_Done : Natural := 0;
begin
   Ada.Text_IO.Put_Line ("My first Agila study session");
   Lessons_Done := Lessons_Done + 1;
   if Lessons_Done = 1 then
      Ada.Text_IO.Put_Line ("One lesson completed");
   end if;
end Main;