Нужна помощь в переводе чисел в другую систему счисления

[drmist]

допустим, тебе надо присвоить переменной a результат этой функци:

var a:real;
[...]
begin
[...]
a:=degree(5,2);
[...]

теперь а равно 25.