надо решить 3 задачи, легкие Опции

[minya]

плачу за каждую 3 вмз
если мало - пишите
очень надо.

[volvo]

Вот тебе бесплатное решение для второй задачи

var
  m, n: byte;

  p, s: real;
  i, k, i_fact: integer;
  x, x_curr: real;
begin
  write('Введите m: '); readln(m);
  write('Введите n: '); readln(n);
  write('Введите x: '); readln(x);

  if abs(x) > 0.0001 then begin
    s := 0; x_curr := x;
    for k := 1 to m do begin
      s := s + (1 / x_curr);
      x_curr := x_curr * x_curr;
    end;

    p := 1; i_fact := 1;
    for i := 2 to n do begin
      i_fact := i_fact * i;
      p := p * (s + 1 / i_fact);
    end;
    writeln('Результат = ', p:10:5)
  end
  else writeln('Ошибка: Делить на ноль нельзя');
end.