Ada 001 - Lesson 1 - Your First Ada Program

with Ada.Text_IO;

procedure Hello is
   A, B, C : Integer;

begin
   Ada.Text_IO.Put_Line ("Enter first number:");
   A := Integer'Value (Ada.Text_IO.Get_Line);
   Ada.Text_IO.Put_Line ("Enter second number:");
   B := Integer'Value (Ada.Text_IO.Get_Line);
   C := A + B;

   if C = 0 then
      Ada.Text_IO.Put_Line ("RESULT IS 0");
   elsif C > 0 then
      Ada.Text_IO.Put_Line ("Result is + :" & Integer'Image (C));
   else
      Ada.Text_IO.Put_Line ("Result is - :" & Integer'Image (C));
   end if;
end Hello;