with Ada.Text_IO; use Ada.Text_IO; procedure Ada12 is x : Float := 4.4; y : Float := 5.3; z1,z2 : Integer; begin z1 := Integer(x) + Integer(y); z2 := Integer (x+y); Put_Line("Z1 = " & Z1'Img); Put_Line("Z2 = " & Z2'Img); end Ada12;