Составить алгоритм, который по введённому N, (0<=N<=3 000 000 000) определяет, какое число стоит на N-ом месте в последовательности нулей ( за исключе, Задача Опции

[FIREMAX]

Задача: Последовательность 011212201220200112… строится так: сначала 0, затем повторяется следующее действие: уже написанную часть приписывают справа с заменой 0 на 1, 1 на 2, 2 на 0, т.е.
0->01->0112->01121220->011212202001-> 0112122020010112.

Составить алгоритм, который по введённому N, (0<=N<=3 000 000 000) определяет, какое число стоит на N-ом месте в последовательности нулей ( за исключением представления числа 0).Используя эту функцию, получить двоичное 1|16-ричное 2 представления данных пяти чисел.

Уже как целый месяц , не могу сделать , тока вот смог в дэльфи сделать =)) вот код это Дэльфи , а нужно в паскале


procedure TForm1.Button1Click(Sender: TObject);
function getprgvalue(const num:Integer):integer;
var transpcount, pow2, m, a:Integer;
function log2i(const cf:Integer):Integer;
var k:Single;
begin
n:=log2i(cf);
if frac(k)<>0 then
result:=trunc(k)+1
else
result:=trunc(k);
end;
begin
transpcount:=0;
m:=num;
while m>1 do
begin
pow2:=log2i(m);
a:=round(power(2, pow2)/2);
m:=m-a;
inc(transpcount);
end;
result:=transpcount mod 3;
form1.Memo1.Lines.Add(floattostr(result));
end;