1 2 3 4 5 6 7 8 9 10
MODULE minmaxreal3 ; FROM SYSTEM IMPORT REAL64 ; VAR min, max: REAL64 ; BEGIN min := MIN (REAL64) ; max := MAX (REAL64) END minmaxreal3.