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 Main is
  X : Integer := 10;
  Y : Integer := 20;
begin
  Put_Line (Integer'Image (X + Y));
end Main;

with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
  type Array_Type is array (1 .. 5) of Integer;
  Array_Var : Array_Type := (others => 0);
begin
  for I in Array_Var'Range loop
    Put_Line (Integer'Image (Array_Var (I)));
  end loop;
end Main;

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Task_Identification;
procedure Main is
  task type My_Task is
    entry Start;
  end My_Task;
  task body My_Task is
  begin
    Put_Line ('Hello from task!');
  end My_Task;
  T : My_Task;
begin
  T.Start;
end Main;

with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
  type My_Type is new Integer;
  X : My_Type := 10;
begin
  Put_Line (Integer'Image (X));
end Main;

with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
  X : Integer := 10;
  Y : Integer := 0;
begin
  if Y /= 0 then
    Put_Line (Integer'Image (X / Y));
  else
    Put_Line ('Division by zero');
  end if;
end Main;