Помогите с Pascal сделать while do задачку,по блок схеме, ещё выложу

Помогите с Pascal сделать while do задачу,по блок схеме, ещё выложу сам пример
p.s: При N=0: 1/a+1/a я знаю что ошибка, там будет только 1/a
---
Уже не надобно, проверте лучше, правильно?
var i,n:integer;
S,T,a:real;
Begin
write ('введите N: ');
readln (n);
write ('Введите А: ');
readln (A);
while igt;n do
S:=0;
T:=1/a;
i:=0;
begin
S:=S+T;
T:=T*T;
inc(i);
end;
writeln (S);
end.