function y(x: real; n: integer): real;
var
  i: integer;
  s: real;

begin
  for i := 0 to n-1 do
  begin
    if i = 0 then
      s := 1
    else
      s := s + (power(x, n)) / (n + 1);
  end;
  y := s;
end;

var
  n: integer;
  x: real;

begin
  writeln('Введите число X:');
  readln(x);
  writeln('Введите число N:');
  readln(n);
  writeln('Сумма первых ', n, ' членов заданного ряда равна ', y(x,n));
end.