11 lines
141 B
Text
11 lines
141 B
Text
|
PROGRAM DIV_BY_ZERO
|
||
|
|
|
||
|
|
EXCEPTION
|
||
|
|
IF ERR=11 THEN PRINT("Division by Zero") END IF
|
||
|
|
END EXCEPTION
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
PRINT(0/3)
|
||
|
|
PRINT(3/0)
|
||
|
|
END PROGRAM
|