1*0c56280aSSorin BascaFUN max(a, b) = IF a > b THEN a ELSE b FI 2*0c56280aSSorin Basca 3*0c56280aSSorin Basca-- n anzahl schleifendurchlaeufe 4*0c56280aSSorin Basca-- m bisheriges maximum 5*0c56280aSSorin BascaFUN LOOP(n, m) = IF n > 0 THEN 6*0c56280aSSorin Basca LET 7*0c56280aSSorin Basca x = READ() 8*0c56280aSSorin Basca IN 9*0c56280aSSorin Basca LOOP(n - 1, max(m, x)) 10*0c56280aSSorin Basca ELSE 11*0c56280aSSorin Basca m 12*0c56280aSSorin Basca FI 13*0c56280aSSorin Basca 14*0c56280aSSorin BascaFUN abs(n) = IF n > 0 THEN n ELSE -n FI 15*0c56280aSSorin Basca 16*0c56280aSSorin BascaFUN main() = 17*0c56280aSSorin Basca LET a = READ() 18*0c56280aSSorin Basca-- b = READ() 19*0c56280aSSorin Basca IN 20*0c56280aSSorin Basca --WRITE(max(a, b)) 21*0c56280aSSorin Basca WRITE(LOOP(abs(a), -47110815)) 22