Дано натуральное число N. Вычислить: S=1-1/2+1/4-1/8+ ... + (-1)N*1/2N. (программа Паскаль)

uses crt;
var a,x: integer;
begin
write('x=');
readln(x);
if x<0 then a:=x+1 else
   if x>=10 then a:=0 else
      a:=2*x;
writeln('A=',a);
end.