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

-- Comparaison d'heures
procedure Ex01c is
   H1, M1, S1 : Natural;
   H2, M2, S2 : Natural;
   Res : Character;
begin
   -- saisies
   Put("Veuillez rentrer une heure avec le format h m s : ");
   Get(H1); Get(M1); Get(S1);
   Put("Veuillez rentrer une seconde heure avec le format h m s : ");
   Get(H2); Get(M2); Get(S2);

   -- Algo
   if H1 > H2 then
      Res := '>';
   elsif H1 < H2 then
      Res := '<';
   elsif M1 > M2 then -- ici : H1 = H2
      Res := '>';
   elsif M1 < M2 then
      Res := '<';
   elsif S1 > S2 then -- ici : H1 = H2 et M1 = M2
      Res := '>';
   elsif S1 < S2 then
      Res := '<';
   else
      Res := '=';
   end if;

   -- Affichage
   Put(H1, 0); Put('h'); Put(M1, 0); Put('m'); Put(S1, 0); Put("s");
   Put(Res);
   Put(H2, 0); Put('h'); Put(M2, 0); Put('m'); Put(S2, 0); Put('s');
end;