Дано натуральное число n. Вычислить

[nstzxc]

Здравствуйте уважаемые программисты, помогите решить задачу, училка задала. А я ничего не шарю, по моему в паскале нужно делать , спасибо большое!

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

Откосите меня от армий пацаны)))

[evg_m]

var
  r: real;
  i: integer;
  
r:=1;
for i:=1 to n do 
  if odd(i) then r:=r*i else r:=r/i;