4 lines
64 B
ObjectPascal
4 lines
64 B
ObjectPascal
begin
|
|
var p: procedure :=
|
|
()->raise new Exception;
|
|
end. |