CweTI3 - Online Ada Compiler & Debugging Tool

with Ada.Text_IO; use Ada.Text_IO;
with Ada.Integer_Text_IO; use Ada.Integer_Text_IO;

procedure Add_Numbers is
   A, B, Sum : Integer;
begin
   Put("Enter A: ");
   Flush;
   Get(A);
   Put_Line("");

   Put("Enter B: ");
   Flush;
   Get(B);
   Put_Line("");

   Sum := A + B;

   -- Print output in requested format
   Put(Integer'Image(A));
   Put(" + ");
   Put(Integer'Image(B));
   Put(" = ");
   Put_Line(Integer'Image(Sum));
end Add_Numbers;