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.Real_Time; use Ada.Real_Time;
procedure Main is
   Task_Delay : Time_Span := Milliseconds (500);
begin
   delay until Clock + Task_Delay;
   Put_Line ("Task completed");
end Main;

with Ada.Text_IO; use Ada.Text_IO;
procedure Main is
   type Object is
      record
         Name : String (1 .. 20);
         Age  : Integer;
      end record;
   My_Object : Object;
begin
   My_Object.Name := "John";
   My_Object.Age := 30;
   Put_Line (My_Object.Name & " " & Integer'Image(My_Object.Age));
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;