98 составьте программу паскаль решающую следующую : дано натуральное число n. вычислить значение произведения p=2/3*4/5*6/7**2n/2n+1

uses crt;

var n:integer;

   a,b,x:real;

begin

write('n=');

 readln(n);

 x:=1;

for n:=1 to n do

  x:=x*((2*n)/(2*n+1));

writeln(' x=',x:4:1);

end.

или

uses crt;

var n:integer;

   a,b,x:real;

begin

write(' n='); readln(n);

for n:=1 to n do

x:=2*n/2*n+1;

writeln(' x=',x:4:1);

end.

Объяснение: