16 lines
188 B
Text
16 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
|