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;