Я вот написал но чтото здесь нитак
Помогите пожалуста найти ошыбки, или может ктото знает чтоб зделать как то по другому
var h,r,a:real;
n,z,x,i:longint;
errcode:integer;
q,w,s: string;
begin
readln(s);
n:=pos('.',s);
q:=copy(s,1,n);
w:=copy(s,n,length(s)-n);
val(q,z,errcode);
for i:=1 to (n-1) do
begin
x:=z mod 10;
z:=z div 10;
r:=exp(ln(2)*i)*z+r;
end;
val(w,z,errcode);
for i:=n+1 to length(s)-n do
begin
x:=z mod 10;
z:=z div 10;
a:=1/(exp(ln(2)*i))*z+a;
end;
h:=a+r;
writeln(h);
end.