Вычислить значение выражения

var a,i,n: integer;
s:real;
begin
readln(a,n);
s:=1;
n:=(2*n-2)div 2;
for i:=1 to n do begin
a:=a*a;
s:=s+1/a;
end;
writeln(s);
end.

var x,i,n: integer;
s:real;
begin
readln(x);
s:=0;
n:=2;
for i:=1 to 5 do begin
s:=s+(x-n+1)/(x-n);
n:=n*2;
end;
writeln(s);
end.

var
    sum, pow: Extended; //Double
    a: Single;
    i, n: LongWord;
begin
    sum := 1; pow := 1; i := 1;
    Write('a='); ReadLn(a);
    Write('n='); ReadLn(n);
    while (i < 2 * n - 2) do
    begin
        Inc(i);
        pow := pow * Sqr(a);
        sum := sum + 1 / pow;
    end;
    Write('sum=', sum:0:4);
end.

const
    N = 64;
var
    sum: Extended; //Double
    x: Integer;
    i: 1..N;
begin
    sum := 1;
    Write('x='); ReadLn(x);
    if ((x <= 64) And (Not Odd(x)))
    then
        WriteLn('Divide by zero!!!')
    else
    begin
        for i := 1 to 64 do
        begin
            if Odd(i)
            then
                sum := sum * (x - i)
            else
                sum := sum / (x - i);
        end;
        Write('sum=', sum:0:4);
    end;
end.

var
    w: Extended; //Double
    i, n: LongWord;
begin
    w := Sqrt(5);
    Write('n='); ReadLn(n);
    for i := 1 to n - 1 do
        w := Sqrt(5 + w);
    Write('w=', w:0:4);
end.

var
    s, fact: Extended;
    n, i: Word;
begin
    Write('n='); ReadLn(n);
    s := 1; fact := 1;
    for i := 2 to n do
    begin
        fact := fact * i;
        s := s + fact;
    end;
    WriteLn('sum=', s:0:0);
end.