Дано натуральное n. вычислить 1/ 2* 3 / 4* 5 / 6**99/100

Program gt;
var s,x:real;
begin
x:=1;
while x<=99 do
begin
s:=s+x/(x+1);
x:=x+2;
end;
writeln(s:1:5);
end.
:1:5-это 5 цифр после запятой