MODULE testchrono; FROM MYINOUT IMPORT WriteCard, WriteLn, WriteString, WriteLongReal; FROM CHRONO IMPORT Chrono, TimeFormat, TimeUnit, InitChrono, WriteChrono, ValChrono; VAR C1, C2 : Chrono; i : CARDINAL; BEGIN InitChrono(C1); FOR i := 1 TO 100 DO WriteCard(i,10); WriteLn; END; InitChrono(C2); FOR i := 101 TO 10000 DO WriteCard(i,10);WriteLn; END; WriteLn;WriteLn; WriteLongReal(ValChrono(C1,sec),10,2);WriteLn; WriteLongReal(ValChrono(C2,sec),10,2);WriteLn; WriteString("Premier Chrono : ");WriteLn; WriteChrono(C1,sec);WriteLn; WriteChrono(C1,min);WriteLn; WriteChrono(C1,hours);WriteLn; WriteChrono(C1,days);WriteLn; WriteChrono(C1,hms);WriteLn; WriteLn;WriteLn; WriteString("Deuxieme Chrono : ");WriteLn; WriteChrono(C2,sec);WriteLn; WriteChrono(C2,min);WriteLn; WriteChrono(C2,hours);WriteLn; WriteChrono(C2,days);WriteLn; WriteChrono(C2,hms);WriteLn; END testchrono.