Складіть програму обчислення об'єму куба на інформатику​

//для среды pascalabc uses graphabc; const k=6; var       n,x,y: integer; procedure snow (x0,y0,r,n: integer);   const t=2*pi/k;   var       i,x,y: integer; begin   for i: =1 to k do     begin       x: =x0+round(r*cos(i*t));       y: =y0-round(r*sin(i*t));       line(x0,y0,x,y);       if n> 1 then snow(x,y,r div 3,n-1);     end;   end; begin repeat   writeln('glubina rekursii do 6: ');   readln(n); until n in [1..6]; x: =windowwidth div 2; y: =windowheight div 2; snow(x,y,100,n); end.

Фактически требуется вычислить значение следующего выражения: в связи с ограниченной разрядностью представления целых чисел в традиционном паскале, используется появившийся в pascalabc.net 3.0 тип данных biginteger, имеющий произвольную разрядность. // pascalabc.net 3.0, сборка 1144 от 16.01.2016 begin   var n: =readinteger('n=');   var s: biginteger: =0;   for var i: =1 to n do begin       var sp: biginteger: =1;       for var j: =i to 2*i do sp*=j;       s+=sp       end;   writeln('s=',s) end. тестовые решения: n= 10 s=6867491336546 n= 20 s=6790094079076573854634585045346 n= 200 s=16259132945245603272459357532926431055851011262226423901521610672683053074122398284194138200811393508183584635163325580662485661758792994853918852068566553866936403927187322304685846233840511935657079269303199247681681900473643377764171469288217130928626467970695282872799909803648986880297649242631688825602025883316969148173917409343244672476380960595892701641078133125672741993996178795224513183779220724481183819428328185978629676722172834554113541584734035734977004732415721620206280485845346