Помогите кто-то по Паскалю

Question

Указать тривиальный случай, параметризацию и декомпозицию в програме 
 
uses crt; 
 const 
 size_a = 5; 
 a:array[1..size_a] of integer=(2, 5, 6, 9, 32); 
 
 size_b=7; 
 b:array[1..size_b] of integer=(3, 7, 8, 11, 13, 19, 21); 
 
 size_c=size_a + size_b; 
 
 var 
 c:array[1..size_c] of integer; 
 ia, ib, ic:integer; 
 
 begin 
 ia:=1; ib:=1; ic:=0; 
 while (ia<=size_a) and (ib<=size_b) do begin 
 if a[ia] < b[ib] then begin 
 inc(ic); c[ic] :=a[ia]; inc(ia); 
 end 
 else begin 
 inc(ic); c[ic] :=b[ib]; inc(ib); 
 end; 
 end; 
 
 while(ia<=size_a) do begin 
 inc(ic); c[ic] :=a[ia]; inc(ia); 
 end; 
 while(ib<=size_b)do begin 
 inc(ic); c[ic] :=b[ib]; inc(ib); 
 end; 
 
 for ic:=1 to size_c do 
 write(c[ic]:4); 
 writeln; 
 end. 
 
Какова будит глубина рекурсии если n=6.

Евгений Симбирцев · Accepted Answer

Win школы