ADA - 1st day

with Ada.Text_IO;
procedure Main is
   --voyages au uCanada : -20% sur 860e d'avion et 7j à 48e/j.
   type tpromo is digits 3 range 0.0 .. 100.0;
   promo : tpromo :=20.0;
   type tprix is digits 6 range 0.0 .. 10000.0;
   avion : tprix :=860.0;


begin
   Ada.text_IO.Put_line("Bienvenue dans l'agence voyage");
   Ada.text_IO.Put_line("Voyages au Canada" & promo'Image &
                       " % sur " & avion'Image);


end Main;