-- HW1ex.adb
  with Text_IO; use Text_IO;
  procedure HW1ex is
     -- NOTE! all declarations are placed before the 'begin' that
     -- indicates executable statements follow. Later you can use 'declare'


     -- 1) add more here, finish after begin 
     A : float := 1.0;


     -- 2) goes here, if declarations needed


     -- 3) goes here, finish 
     dat : string := "cbadc";
     val : integer := 0;
   

     -- 4) goes here
     type bits_16 is mod 65536; 
     Q : bits_16 := 0;
  begin

     Put_Line("HW1ex is running");

     -- 1) finish here 

     Put_Line("A= " & float'image(A));

     -- 2) finish here


     -- 3) finish here 

     Put_Line("val= " & integer'image(val));

     -- 4) goes here, finish 

     Put_Line("Q= " & bits_16'image(Q));

     Put_Line("finished HW1ex");

  end HW1ex;