with Ada.Integer_Text_IO;
with Ada.Text_IO;

procedure Input_Output
is
   Wert     : Integer;
   Ergebnis : Integer;
begin
   Ada.Text_IO.Put ("Gib einen Wert ein:");
   Ada.Integer_Text_IO.Get (Wert);
   Ergebnis := Wert * 15 - 6;
   Ada.Text_IO.Put ("Ergebnis:");
   Ada.Integer_Text_IO.Put (Wert);
   Ada.Text_IO.New_Line;
end Input_Output;