with Ada.Text_Io, Ada.Integer_Text_Io;
use Ada.Text_Io, Ada.Integer_Text_Io;

-- Conversion h:m:s en seconde
procedure Ex01a is
   H, M, S : Natural;
   Total_S : Natural;
begin
   -- saisies
   Put("Veuillez rentrer une heure avec le format h m s : ");
   Get(H); Get(M); Get(S);

   -- Algo
   Total_S := H * (60 ** 2) + M * 60 + S;

   -- Affichage
   Put(H, 0); Put('h'); Put(M, 0); Put('m'); Put(S, 0); Put("s = ");
   Put(Total_S, 0); Put('s');
end;