Составить программу вычисления произведения 4 элементов последовательности .каждый элемент находить по формуле. i=2*+5)/(2*n)

Var p: real;
    i: integer;
begin
  p:=1;
  for i:=1 to 4 do 
    p:=p*((2*i)-(i+5)/(2*i));
  writeln(p:7:4);
end.

-72.1875