15 lines
188 B
Text
15 lines
188 B
Text
PROGRAM INFINITY
|
|
|
|
EXCEPTION
|
|
PRINT("INFINITY")
|
|
ESCI%=TRUE
|
|
END EXCEPTION
|
|
|
|
BEGIN
|
|
ESCI%=FALSE
|
|
K=1
|
|
WHILE 2^K>0 DO
|
|
EXIT IF ESCI%
|
|
K+=1
|
|
END WHILE
|
|
END PROGRAM
|