RosettaCodeData/Task/Stack-traces/PascalABC.NET/stack-traces.pas

procedure qqq;
begin
  var st := new System.Diagnostics.StackTrace();
  Print(st);
end;

procedure ppp;
begin
  qqq;
end;

begin
  ppp
end.