Сумму последовательности с элементами An = 1/((2*n)-1), A1 = 1 вычислить с точностью до заданного с клавиатуры вещественного числа — Pascal(Паскаль)

uses crt;
var e,t,s:real;
    n:integer;
begin
clrscr;
e:=0.01;
s:=1;
t:=1;
n:=1;
while t>e do
 begin
  n:=n+1;
  t:=1/(2*n-1);
  s:=s+t;
 end;
write('S=',s:0:3);
readln
end.