Здравствуйте, pikvar.

Из контекста задачи исходное число, полагаю, надо вводить, как строку. Далее. Любое число в позиционной системе записи -- это сумма произведений значений цифр на основание в степени, соответсвующей позиции. Соответсвенно, и в программа осуществляется суммирование в цикле перебирающем по очереди цифры исходного числа. А теперь программа ...

Приложение:
const dd='.'; {Знак десятичной точки. Можно задать другой}

var s:string;
i,n:integer;
f,r:real;
begin
{Пятеричное число сичтывается в виде строки}
readln(s);
{Ищется положение десятичной точки}
n:=pos(dd,s);
{Если её нет, значит она как бы за последним знаком}
if n=0 then n:=length(s)+1;
{В r суммируется результат. Нальное значение - 0}
r:=0;
{Множитель -- основание 5 в некоторой степени.
Начальной значение 5 в степени 0}
f:=1;
{Перебираются цифры целой части. Справа налево,
т.е. по увеличению степени основания}
for i:=n-1 downto 1 do
begin
{Цифра в текущей позиции преобразуется
в число (48 -- ASCII-код символа '0'),
домножается на основание в текущей степени
и добавляется к результату}
r:=r+f*(ord(s[i])-48);
{Множитель домножается на основание}
f:=f*5;
end;
{То же в обратную сторону -- для дробной части числа}
{Начальное значение 5 в степени -1}
f:=0.2;
{От позиции следующей за десятичной
точкой до конца исходного числа}
for i:=n+1 to length(s) do
begin
r:=r+f*(ord(s[i])-48);
f:=f/5;
end;
{Нижеследующее -- некое украшательство :). Для
вывода результата с тем же количеством знаков,
что и в исходном числе. Можно и убрать.}
n:=length(s)-n;
{На тот случай, если десятичная точка не задана.
Тоже в принципе необязательно.}
if n<0 then n:=0;
{Вывод результата}
writeln(r:0:n);
readln;
end.