Не могу решить задачки 2 и 3. Помогите с решением. (Pascal)

Ответ:

Разъяснение:

2.

const

 n = 10;

var

 i:integer;

 p:integer;

begin

 p:=1;

 for i:=2 to n+2 do

   p:=p*i;

 writeln(p);

end.

3.

const

 a=2;

 b=3;

var

 i:integer;

 p:integer;

 geom:real;

 n:integer;

begin

 p:=1;

 for i:=a to b do

   p:=p*i*i;

  n:=b-a+1;

  geom:=exp(ln(p)*(1/n));

  writeln(geom);

end.