FUNCTION LETTURA (A[3])
VAR
I
BEGIN
FOR I := 0 TO 3
READ A[I]
ENDFOR
END

ALGORITMO DURATA
VAR
INIZIO[3], FINE[3], DURATA[3], I
BEGIN
LETTURA (INIZIO[3])
LETTURA (FINE[3])
FOR I := 2 DOWNTO O
IF FINE[I] < INIZIO[I]
FINE[I] := FINE[I] + 60
INIZIO[I-1] := INIZIO[I-1]+1
ENDIF
DURATA[I] := FINE[I] - INIZIO[I]
PRINT DURATA[0] . ":" . DURATA[1] . ":" . DURATA[2]
END