globals
integer array udg_Ar
endglobals

// Вспомогательная фукнция
function ghjkl takes integer l returns integer
local integer array a
local integer i = 1
local integer j
local integer k
set a[0] = l
loop
set j = 0
set k = 0
loop
exitwhen j >= l
if udg_Ar[j] > i then
set k = k + 1
endif
set j = j + 1
endloop
exitwhen k <= 0
set a[i] = k
set i = i + 1
endloop
set j = 0
loop
exitwhen j >= i
set udg_Ar[j] = a[j]
set j = j + 1
endloop
return i
endfunction

function MyUberFunc takes integer n returns nothing
call ghjkl(ghjkl(n))
endfunction

library MyUberLib {
int udg_Ar[ ]

/* Вспомогательная фукнция */
private int ghjkl(int l) {
int a[ ], i = 1, k
a[0] = l
loop {
k = 0
for (int j = 0; j < l; j++) {
if udg_Ar[j] > i { k++ }
}
exitwhen k <= 0
a[i++] = k
}
for (int j = 0; j < i; j++) {
udg_Ar[j] = a[j]
}
return i
}

void MyUberFunc(int n) {
ghjkl(ghjkl(n))
}
}

var
udg_Ar: array[0 .. 8191] of integer;

procedure MyUberFunc(n: integer);

{ Вспомогательная фукнция }
function ghjkl(l: integer): integer;
var
a: array[0 .. 8191] of integer;
i, j, k: integer;
begin
a[0] := l;
i := 1;
repeat
j := 0;
k := 0;
while j < l do begin
if udg_Ar[j] > i then
k := k + 1;
j := j + 1;
end;
if k <= 0 then
break;
a[i] := k;
i := i + 1;
until false;
j := 0;
while j < i do begin
udg_Ar[j] := a[j];
j := j + 1;
end;
ghjkl := i;
end;

begin
ghjkl(ghjkl(n));
end;