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

Результат:50    0.07959100    0.05635200    0.03987Var  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.