составить программу, Коды Грея Опции

[Real]

Дано число, закодированное кодом Грея и представленное в двоичном виде как строка. Составить программу, в результате работы которой раскодированное число будет выведено в десятичном виде.

[Ozzя]

http://alglib.sources.ru/articles/graycode.php

[volvo]

Составить программу, в результате работы которой раскодированное число будет выведено в десятичном виде.

А что, трудно в FAQ-е найти программу конвертации двоичного числа в 10-ричное, и потом преобразовать 10-ричный код Грея в число:

const
  bits = 4; { При необходимости - изменить ... }

function gray_to_dec(n: integer): integer;
var i: integer;
begin
  for i := 0 to bits do
    n := n xor (n shr ($0001 shl i));
  gray_to_dec := n;
end;

?