# mission2.adb

Pour télécharger ce fichier, clic-droit sur ce lien : mission2.adb

    with GAda.Text_IO ;

    procedure Mission2 is

       package Txt renames GAda.Text_IO ;

       function Calcul return Integer is
          Resultat := 0 ;
       begin
          return Resultat ;
       end Calcul ;

       Y : Integer ;

    begin

       -- Corps du programme
       Y := 10 ;

    end Mission2 ;