25:I[213999,["/_next/static/chunks/16a29cd6304f2411.js","/_next/static/chunks/1f26200cd6d05dff.js","/_next/static/chunks/c3f9d80d717636c8.js","/_next/static/chunks/bc1d040bf8e65c58.js","/_next/static/chunks/debb321617d7ca1e.js","/_next/static/chunks/f64101a76fad54b1.js","/_next/static/chunks/94fbb7fa806ad56b.js","/_next/static/chunks/db9978aba23a417e.js","/_next/static/chunks/14f8985e1634915f.js","/_next/static/chunks/aec63f7bf4bac799.js","/_next/static/chunks/2ed14a01cc7b5d05.js","/_next/static/chunks/e95f3e95128ec76b.js","/_next/static/chunks/7bba671d0b05dc6c.js","/_next/static/chunks/882a0401193a3b5d.js","/_next/static/chunks/abd3194e107ec3ca.js"],"AcademyWorkspaceWrapper"] 28:I[422650,["/_next/static/chunks/0306128cacc23787.js"],"IconMark"] 26:T4a4,unit uPascalsTriangle; interface const CanonicalVersion = '1.3.0'; type PascalsTriangle = class public class function Calculate(ADepth : integer) : TArray>; end; implementation uses System.SysUtils, System.Generics.Collections; { PascalsTriangle } class function PascalsTriangle.Calculate(ADepth: integer): TArray>; function CalcNextRow(ADepth : integer) : TArray>; var ALast : TArray; ANew : TList; i: integer; begin Result := []; ANew := TList.Create; while ADepth > 0 do begin ALast := []; if Length(Result) > 0 then ALast := Result[High(Result)]; for i := Low(ALast) to High(ALast) do if i = Low(ALast) then ANew.Add(1) else ANew.Add(ALast[i - 1] + ALast[i]); ANew.Add(1); SetLength(Result, Length(Result) + 1); Result[High(Result)] := ANew.ToArray; dec(ADepth); ANew.Clear; end; ANew.DisposeOf; end; begin if ADepth < 0 then raise EArgumentOutOfRangeException.Create('Argument have to be positive'); Result := CalcNextRow(ADepth); end; end. 27:Tdd6,