паскаль 18 номерможно с небольшим объяснением шагов

Результат:
50    0.07959
100    0.05635
200    0.03987

Var
  i,N : Integer;
  M : Real;

Begin
  M:=1; i:=1;
  For i:=1 to 200 do
  Begin
    M:=M*((i*2-1)/(i*2));
    If i in [50,100,200] then Writeln(i,' ',M:10:5);
  end;
end.