| FUN max(a, b) = IF a > b THEN a ELSE b FI | |
| -- n anzahl schleifendurchlaeufe | |
| -- m bisheriges maximum | |
| FUN LOOP(n, m) = IF n > 0 THEN | |
| LET | |
| x = READ() | |
| IN | |
| LOOP(n - 1, max(m, x)) | |
| ELSE | |
| m | |
| FI | |
| FUN abs(n) = IF n > 0 THEN n ELSE -n FI | |
| FUN main() = | |
| LET a = READ() | |
| -- b = READ() | |
| IN | |
| --WRITE(max(a, b)) | |
| WRITE(LOOP(abs(a), -47110815)) |