[Riim]

function BCD4_to_INT(bcd: int): int
{
var i;
var res: int;
res=0;
 
for(i=0; i<4; i++)
{
bcd/= 0x10;
}
return res;
}

Это на каком языке написано?