10 lines
160 B
Text
10 lines
160 B
Text
|
const proc: main is func
|
||
|
|
begin
|
||
|
|
block
|
||
|
|
foo;
|
||
|
|
exception
|
||
|
|
catch RANGE_ERROR:
|
||
|
|
writeln("catched RANGE_ERROR");
|
||
|
|
end block;
|
||
|
|
end func;
|