01  procédure ZB (Sortie : E, M sont entiers)
02  données : X sont entiers
03            H, F sont réels
04  début
05    ObtenirHeureSysteme (E, M, X)
06    H <-- E + M/60
07  
08    si (H < 9) OU (H >= 18) alors
09      F <-- 10
10    sinon
11      si ((H >= 11,5) ET (H < 14,5)) alors
12        F <-- 15,5
13      sinon
14        F <-- PartieEntiere (H*2)/2 +1,5
15      fin si
16    fin si
17  
18    E <-- PartieEntiere (F)
19    M <-- PartieDecimale (F)*60
20  fin