Условный оператор и циклы в паскале

 var i, N: integer;

s, p, x: real;

begin

  write('x N: ');

  readln(x, N);

  s := 0;

  p := 1;

  for i := 1 to N do

    begin

      p := p * x;

      s := s + p / (i * (i + 1))

    end;

  writeln(s)

end. 

3. Ну и что это у Вас за ряд? У первых трёх слагаемых в числителях первые три степени тройки, а в конце как бы общий член ряда. Но этот так называемый общий член вообще никак не соответствует первым трём слагаемым...

Что-то типа того:
2)

 program q233203374_2; 

var 

  i, n: Integer; 

  x, s: Real; 

begin 

  ReadLn(n, x); 

  s := 0; 

  for i := 1 to n do 

    s := s + Exp(Ln(x) * i) / (i * Succ(i)); 

  WriteLn(s); 

end. 

3)

 program q233203374_3; 

var 

  i, k, f: Integer; 

  e, c, s: Real; 

begin 

  ReadLn(k, e); 

  s := 0; 

  f := 1; 

  i := 1; 

  c := Exp(Ln(3) * i) / (2 * f); 

  if i mod 2 = 0 then 

    c := -c; 

  while c >= e do 

  begin 

    s := s + c; 

    i := i + 1; 

    f := f * i; 

    c := Exp(Ln(3) * i) / (2 * f); 

    if i mod 2 = 0 then 

      c := -c; 

  end; 

  WriteLn(s); 

end.