with Ada.Text_IO; use Ada.Text_IO;
procedure Hello is
begin
  Put_Line ('Hello, world!');
end Hello;

with Ada.Text_IO; use Ada.Text_IO;
procedure Print_Num is
  Num : Integer := 10;
begin
  Put_Line (Integer'Image(Num));
end Print_Num;

with Ada.Text_IO; use Ada.Text_IO;
procedure Array_Sum is
  type Int_Array is array (1 .. 5) of Integer;
  Arr : Int_Array := (1, 2, 3, 4, 5);
  Sum : Integer := 0;
begin
  for I in Arr'Range loop
    Sum := Sum + Arr(I);
  end loop;
  Put_Line (Integer'Image(Sum));
end Array_Sum;

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Real_Time; use Ada.Real_Time;
procedure Sleep is
begin
  delay 1.0;
  Put_Line ('Slept for 1 second');
end Sleep;

with Ada.Text_IO; use Ada.Text_IO;
procedure Object_Oriented is
  type Base_Type is tagged null record;
  procedure Print (Obj : Base_Type) is
  begin
    Put_Line ('Base_Type object');
  end Print;
  Obj : Base_Type;
begin
  Print (Obj);
end Object_Oriented;

with Ada.Text_IO; use Ada.Text_IO;
procedure Advanced is
  type Int is range 1 .. 10;
  function Is_Even (I : Int) return Boolean is
  begin
    return I mod 2 = 0;
  end Is_Even;
  I : Int := 5;
begin
  if Is_Even (I) then
    Put_Line ('Even');
  else
    Put_Line ('Odd');
  end if;
end Advanced;