21 lines
232 B
Text
21 lines
232 B
Text
procedure Inner;
|
|
begin
|
|
try
|
|
raise Exception.Create('');
|
|
except
|
|
on E: Exception do
|
|
PrintLn(E.StackTrace);
|
|
end;
|
|
end;
|
|
|
|
procedure Middle;
|
|
begin
|
|
Inner;
|
|
end;
|
|
|
|
procedure Outer;
|
|
begin
|
|
Middle;
|
|
end;
|
|
|
|
Outer;
|