with ada.text_io; use ada.text_io;
with ada.integer_text_io; use ada.integer_text_io;
with ada.float_text_io; use ada.float_text_io;
procedure average is
n1: Integer;
n2: Integer := 99;
n3: Integer := -23;
sum: Integer;
average: Float;
number_of_numbers: Constant Natural := 3;
begin
n1 := 25;
sum := n1 + n2 + n3;
average := float(sum) / number_of_numbers;
put_line("sum:" & sum'img);
put_line("sum:" & Integer'image(sum));
put("sum: ");
put(sum, width => 1);
new_line;
put_line("Average:" & average'img);
put_line("Average:" & Float'image(average));
put("Average: ");
put(average, fore=>0, aft=>2, exp=>0);
new_line;
end average;