Даны действительное число A, натуральное число N. Вычислить: 1/а +… +1/a*sqr (2*n)

var i, n, a, p: integer; beginwriteln ('Vvedi N: '); readln (n); writeln ('Vvedi A: '); readln (a); p: =1; for i: =0 to sqr (n) do begin p: =p*(a — n); n: =n*2; end; writeln (p); readln; end.