Вычислить в паскале

[Pchelka1992]

Помогите пожалуйста написать программу,Дано натуральное число N . Вычислить:

[newStudent]

что-то вроде этого (не проверял):

var
s:real;
n,i:integer;
    function pow(chislo, stepen:real):real;
    var per:real;
    begin
    per:= abs(chislo);
    if chislo < 0 then pow:= (-1)*exp((stepen)*ln(per))
    else pow:= exp((stepen)*ln(per));
    end;
begin
s := 1;
readln(n);
for i := 1 to n do
s := s + pow(-1,i)*1/pow(2,i);
writeln('s=',s:6:4);
readln;
end.