12 lines
272 B
Ada
12 lines
272 B
Ada
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;
|